Yo! Bawię się z VBA no i utknąłem w pewnym miejscu.
Wklejam kod
Sub siodme()
j = 1
For Each Value In Range("C1:C6")
'MsgBox cmt.Text
For i = 0 To 0
Cells(j, 2) = Value.Text
j = j + 1
Next i
Next Value
End Sub Chodzi o to, żeby brało wartości z podanego range no i odpowiednio wklejało. Problem jest w tym, że makro jak gdyby nigdy się nie kończy. Gdzieś zrobiłem błąd przy drugiej pętli. Chyba powinienem też gdzieś zrobić .count z tego range. Tylko już różnych kombinacji próbowałem i nie wychodzi. Kto pomoże ( ͡°͜ʖ͡°)
@padobar: Wiem, wygląda bez sensu, ale działa :D po prostu wtedy nie dubluje tej samej wartości wtedy. Jak zrobię 0 to 1 to wpisuje jedną daną 2 razy w kolejnych komórkach i tak dalej.
Wklejam kod
Sub siodme()
j = 1
For Each Value In Range("C1:C6")
'MsgBox cmt.Text
For i = 0 To 0
Cells(j, 2) = Value.Text
j = j + 1
Next i
Next Value
End Sub
Chodzi o to, żeby brało wartości z podanego range no i odpowiednio wklejało. Problem jest w tym, że makro jak gdyby nigdy się nie kończy. Gdzieś zrobiłem błąd przy drugiej pętli. Chyba powinienem też gdzieś zrobić .count z tego range. Tylko już różnych kombinacji próbowałem i nie wychodzi. Kto pomoże ( ͡° ͜ʖ ͡°)
#vba #programowanie
@Ciuliczek: ??