Search results for query: *

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...

Trying to figure out your suggestion but after trying so and so still will get same error message. Problem is with this second line. Sub graafik() ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.Legend.LegendEntries(1).Interior.Color = RGB(255, 75, 0) End Sub Most probably...

Hi, trying to build VBA code to change legend(s) color after changes in worksheet. I have made following code but I received error - Run-time error '438' Object doesn't support this property or method. By pressing debug it shows that there is something wrong with lines With Selection.Border...

Thank you, one reference was too much but unfortunately I lost the name. But what should be check are: Visual Basic For Applications Microsoft Excel 12.0 Object Library OLE Automation Microsoft Office 12.0 Object Library Microsoft Forms 2.0 Object Library

Hi, I made excel and VBA code under Excel 2003. Everything worked ok. Now I have excel 2007 and I have problem with one VBA code or one part from it. Code is: Public vartimer As Variant Const TimeOut = 200 Sub Salva1() Call update Call Tempo1 End Sub Sub Tempo1() vartimer =...

Macro recorder is nice thing but it didn't somehow record all I entered that's why I had question :)