• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

VBA kopiowanie wartości do kolejnych komórek

VPS Starter Arubacloud
+1 głos
1,929 wizyt
pytanie zadane 19 marca 2021 w Visual Basic przez Jarek K. Początkujący (330 p.)
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 :)

2 odpowiedzi

0 głosów
odpowiedź 22 marca 2021 przez Paweł Nyczkowski Obywatel (1,620 p.)

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

 

0 głosów
odpowiedź 23 marca 2021 przez VBService Ekspert (251,210 p.)
edycja 24 marca 2021 przez VBService

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)

Podobne pytania

0 głosów
1 odpowiedź 574 wizyt
0 głosów
1 odpowiedź 2,250 wizyt
pytanie zadane 23 września 2017 w Visual Basic przez Adam Domański Początkujący (370 p.)
0 głosów
0 odpowiedzi 427 wizyt
pytanie zadane 1 maja 2020 w Visual Basic przez rafi-vir Nowicjusz (140 p.)

92,453 zapytań

141,262 odpowiedzi

319,088 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...