Witam
Mam problem z pętlą w pętli i oznaczaniem liczby komórki za pomocą zmiennej.
Np:
dim start as integer
start = 3
If Worksheets("test1").Cells(start, 6)
Cały kod wygląda tak:
Sub arkusze()
Dim start, drugie, koniec As Integer
start = 3
drugie = 3
For i = start To 15
If Worksheets("test1").Cells(start, 6) = Worksheets("test2").Cells(drugie, 6) Then
Worksheets("test1").Cells(4, 7) = Worksheets("test2").Cells(4, 7)
Else:
For o = drugie To 15
If Worksheets("test1").Cells(start, 6) = Worksheets("test2").Cells(drugie, 6) Then
Worksheets("test1").Cells(4, 7) = Worksheets("test2").Cells(4, 7)
Next o
End If
Next i
Exit For
End Sub
Intencja makra jest taka:
Porównianie komórki (3,6) w arkuszu test1 z komórką (3,6) z test2 jeśli jest ta sama to przypisuje wartosc komorki z (3,7)-arkusz test2 do komórki (3,6)z test1
Jeśli wartość jest inna , to pętla przeskakuje dalej i i komórka (3,6)z arkuszu test1 jest porównywana do wartości komorki (4,6) z arkuszu test 2
Za pomoc z góry dziękuje.