Recent content by pruleone

If I understood you correctly than you are referring also to the fact that date format is set to "" and thereby I don't see it UserForm? I don't understand why this format is not over ruled / calculated when I'm updating /changing date? I tested with DTPicker_Change() action but somehow it...

Hi Building some UserForms into excel and using also DTPicker component. As by default I saw today's date in field then googled and found way to set date field empty and "force" user to select proper date. Code I used: With Me.DTPicker1 .CustomFormat = " " .Format = dtpCustom End With]With...

Does anyone know or have good idea how to make following comparison simpler than manually? Input data: V1 V2 V3 V4 V5 V6 E1 1 4 3 2 6 5 E3 2 1 3 4 5 6 Output table: V1 V2 V3 V4 V5 V6 V1 0 1 2 2 2 2 V2 1 0 1 1 2 2 V3 0 1 0 1 2 2 V4 0 1 1 0 2 2 V5 0 0 0 0 0 1 V6 0 0 0 0 1 0 Explanation: Logic...

Thank you, it works

Hi one question about goal seek - some cases using simple goal seek command,it fails to find an answer / solution. Does someone has any idea how to overcome from that issue? Currently I just rounded expected result to nearest multiplier 10. So it works better than previously but of course it...

I found one idea and modified this code: Public Sub ChChChain() Dim rSource As Range Dim rTarget As Range Dim oCell As Range Dim sConcat As String On Error GoTo woops Set rSource = Sheets("Sheet1").Range("A1:A200") Set rTarget = Sheets("Sheet1").Range("c1") For Each oCell...

Hi First - Yes I know that looping through 16 steps in general is meaningless (it was just example also). Unless I will add comment to Loop code that after performing action wait 5 sec and then proceed with loop. Anyway this is not a wish currently. So what I need or let's say what would be...

Hi I have starting number 0 and max number 3. After pressing Start system will start adding 0,25 until total sum is 3, then system stops working. Do to it, I used LOOP and as I didn't know how to do it simply I used following logic - Add 0,25 to into first cell Add 0,25 to next free cell...

Thank you Used this solution: Worksheets("Data").Range("c2").Value = TextBox1.Value * 1 Reasons: Solution (TextBox1.Value) didn't change anything Solution (Val(TextBox1.Value)) did remove decimals, so should make this command longer with defining format as well Thank you

Hi I made one excel, where you can add data through pop-up window. Added data will be copied into excel sheet. After that I'm making some of calculations etc. Problem is that output from user-form is in text, so entered number 10.23 is text for excel and I can't use SUM formula to sum-up...

I used following code / solution: Range("s3:s12").SpecialCells(xlCellTypeConstants).Copy Range("t3:t12").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False

To be honest I was more then sure that I'm asking wrong thing. Otherwise I think I had found solution from google as well :). I just thought that this copy-paste might be solution. But if to go then back to start then I have UserForm from which user can choose (using check boxes) what he likes...

Thank you for replies .PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True Didn't work In column "s" are listed "things" as this: Apple Plum Pear And I want them to be listed in column "t" as this: Apple Plum Pear

Hi I have VBA command: Private Sub CommandButton1_Click() Dim LR As Long Range("s3:s12").Copy LR = Range("t" & Rows.Count).End(xlUp).Row + 1 With Range("t" & LR) .PasteSpecial Paste:=xlPasteValues End With Application.CutCopyMode = False End Sub Problem is that in Range("s3:s12") I have also...

Manage to solve this issue with following code: Private Sub CommandButton1_Click() On Error Resume Next Dim C As Chart Dim i As Long, Max As Long Dim Red As Integer, Blue As Integer Set C = ActiveSheet.ChartObjects("Chart 1").Chart With C.Legend...