macro doesn't work

[kiril0]

Sub datatrasfer()


Dim k As Integer
Dim j As Integer
Dim l As Integer
Dim n As Integer
 
 Sheets("sheet6").Activate
 j = 1
 k = j + 1
 l = 9
 n = l + 1
   
   Do Until j = 15000
     If Cells(j, 1).Value = "" And Cells(k, 1).Value <> "" Then
          Sheets(Sheet1).Cells(l, 19).Value = Cells(k, 1).Value
          Sheets(Sheet1).Cells(n, 19).Value = Cells(k, 1).Value
          j = j + 1
          l = l + 2
     Else
          j = j + 1
     End If
   Loop
   
          
End Sub

I want to transfer data from sheet 6 to sheet 1 if the condition in sheet 6 meet the condition in my "if" statements.
I tried with "and" instead of 2 "if" but it return error 1004.
Now it goes to sheet 6 and nothing happens no error no nothing.
Any idea how to solve the problem.

 

[kiril0]

sorry it must read
I tried with 2 "if" instead of "and" but it return error 1004.

 

[MickG]

Possibly:-

    Sheets[B][COLOR=#FF0000]("Sheet1").[/COLOR][/B]Cells(l, 19).Value = Cells(k, 1).Value
    Sheets[B][COLOR=#FF0000]("Sheet1")[/COLOR][/B].Cells(n, 19).Value = Cells(k, 1).Value

 

[Fluff]

The reason your code doesn't work properly, is because you never change the values of k or n.
Try

Sub datatrasfer()
   Dim j As Integer
   Dim l As Integer
 
   Sheets("sheet6").Activate
   j = 1
   l = 9
   
   Do Until j = 15000
      If Cells(j, 1).Value = "" And Cells(j + 1, 1).Value <> "" Then
         Sheets("Sheet1").Cells(l, 19).Value = Cells(j + 1, 1).Value
         Sheets("Sheet1").Cells(l + 1, 19).Value = Cells(j + 1, 1).Value
         j = j + 1
         l = l + 2
      Else
         j = j + 1
      End If
   Loop
   
          
End Sub

 

[WaterGypsy]

I think your first problem is that k never changes once you have initialised it .... and (maybe my lack of knowledge) I don't think cells(j,1).value returns anything at all

 

[offthelip]

Can I suggest you never use l (little L) as an index counter it is far too easy to mix it up with 1 (one) , more or less whatever the font

 

[kiril0]

Thanks now it works

 

[Fluff]

Glad we could help & thanks for the feedback