VBA kopiowanie wartości do kolejnych komórek

Question

Witam serdecznie. Próbowałem szukać w google ale ciężko mi sformułować pytanie. Chodzi mi o kod w VBA w Excelu. Chciałbym wstawić przycisk i przypisać do niego następujące makro. Wstawiam wartość w komórkę B1, klikam przycisk i ta wartość wstawia mi się w komórkę A1. Potem wpisuję inną wartość w B1, klikam przycisk i wstawia mi się ona do A2 itd. każde kliknięcie powoduje wstawienie do kolejnej komórki wartości z B1. Słownie wyobrażam sobie jak ma to wyglądać. Robię pętlę gdzie zmienną mam i jako numer wiersza. W każdym przejściu pętla ma wstawić wartość z B1 do kolumny A o numerze wiersza i zaczynając od 1. Potem zwiększa i o 1 i znów wstawia. Powiedzmy tak dalej do i=10. Wiem że to proste ale jestem początkujący :) z góry dziękuję za wszelkie podpowiedzi :)

Answer 1

spróbuj coś takiego i daj znać

Public Sub Przepisz()
    Dim v As Object
    Dim do_ilu As Integer
    do_ilu = 10
    
    
    'set v = Worksheets("Arkusz1").Cells(1, 2)
    Set v = ActiveSheet.Cells(1, 2)
    For i = 1 To do_ilu
     If (Worksheets("Arkusz1").Cells(i, 1) = "") Then
        Worksheets("Arkusz1").Cells(i, 1) = v
        Worksheets("Arkusz1").Cells(1, 2) = ""
        i = do_ilu
     End If
    Next
     
End Sub

 

Answer 2

Proponuję przypisać makro do przycisku, które będzie pobierać wartość z B:1, i będzie sprawdzać, który wiersz w kolumnie A począwszy od 1, 2, 3, ... itd. jest wolny i wpisywać tam wartość z B:1.

VBA Find Blank Cells and insert text

Select first empty cell in column F starting from row 1. (without using offset)