For Loop with multiple condition

[bcmk29]

Here's my code to copy the range available in SH and paste it into A1. This works fine for the first time, for the second time code pastes the copied value in A1 again I need that to be looped as B1, C1, D1..etc Please help.

SH = ThisWorkbook.Worksheets(4).Cells(Rows.Count, 19).End(xlUp).Row - 1
For A = 2 To SH
    Importworkbook.Worksheets(1).Range(Sheets("Sheet3").Range("T" & A).Value).Copy ThisWorkbook.Worksheets(2).Range("[B]A1[/B]")
Next A

 

[steve the fish]

You will want to replace

.Range("A1")

with

.Cells(1, A-1)

 

[bcmk29]

Thanks, that was quick and it works as I expected.

Here's the thread for my next question.

Check Combobox is empty

With the below code, I need 2 help. 1. I would like to check if all the Combobox has value or not. In the screenshot, you can see I've created 2 new Combobox statically. When I execute this code the MsgBox throws the value Label and the code exits. I'm not sure where it's fetched from and the...

www.mrexcel.com