Temat: Excel - pomoc

Cześć,
Jestem początkującym użytkownikiem VBA i potrzebuję pomocy ;)
chciałabym po wybraniu opcji ok (Msgbox) skopiować konkretną komórkę do nowego arkusza w pierwszą wolną komórkę w wierszu, tak by ta dana tam została i przy kolejnym wyborze opcji ok tę samą komórkę skopiować do wiersza niżej...
udało mi się napisać kod:
info1 = MsgBox( "Jesteś pewien?" "Wybierz OK w celu przesłania danych" vbNewLine & vbTab & "Wybierz Cancel w celu anulowania", vbOKCancel)
Do
If info1 = 1 Then

Worksheets("arkusz").Activate
Cells(2, 3).Copy
Worksheets("arkusz1").Select
wiersz = 1
Do
wiersz = wiersz + 1
Loop While Cells(wiersz, 1) <> ""
ActiveSheet.Cells(wiersz, 1).Select
Worksheets("arkusz1").Cells(wiersz, 1).PasteSpecial Paste:=xlPasteValues
End If
Loop While infol = 2
If info1 = 2 Then
Exit Sub
End If
End Sub

Cóż w nim powinna zmienić ? pomożecie ?

Temat: Excel - pomoc

Po pierwsze zapomnij o pętli DO. Naucz się FOR, jest 10x szybsza.
Poza tym brak deklaracji zmiennych, włącz sobie w opcjach ich wymuszanie.

Sam komunikat masz błędnie sklejony:

info1 = MsgBox("Jesteś pewien?" & vbNewLine & "Wybierz OK w celu przesłania danych" & vbNewLine & "Wybierz Cancel w celu anulowania", vbOKCancel)

Nie sprawdzasz czy dany arkusz istnieje, zero obsługi błędu.
Select i selection to spowalniacze z nagrywarki, zwykle nie potrzebne.
Brak zmiennych obiektowych typu Range, które by się przydały.Ten post został edytowany przez Autora dnia 08.09.22 o godzinie 19:18

Temat: Excel - pomoc

Dzięki szkoleniom z Excela online z Adamem mam możliwość nauki w dogodnym dla mnie czasie i miejscu. Jest to dla mnie idealne rozwiązanie, ponieważ mogę dopasować naukę do mojego harmonogramu pracy i prywatnego życia. (https://exceliadam.pl/szkolenia)

Temat: Excel - pomoc

Jestem pewny że jesteś zadowolona, ponieważ już 3ci raz piszesz o jego niepowtarzanych umiejętnościach.
Tak trzymaj Paulina.