Vba

[kentucky2 0]

Hej

mam problem z napisaniem programu w vba.

Chce stworzyć formularz, który będzie mi wpisywał wartości do tabeli.

I tu mam problem ponieważ ciągle wpisuje mi w jeden wiersz, a chciałbym aby wpisywało jeden pod drugim.

Wklejam tu swój kod:

Private Sub CommandButton1_Click()

Sheets("Wydatki").Range("B3").Value = data

Sheets("Wydatki").Range("C3").Value = kwota

Sheets("Wydatki").Range("D3").Value = Kategoria

Sheets("Wydatki").Range("E3").Value = opis

If Sheets("Wydatki").Range("B3:E3").Value = True Then

Sheets("Wydatki").Range("B3:E3").Offset(1, 0).Select

End If

 

 

End Sub

Co mam poprawić ?

[Chopin13 0]

Cześć,

 

Nie jestem pewien czy dobrze zrozumiałem Twój problem, dlatego założenia:

1. data, kwota, Kategoria, opis to jakieś zmienne globalne skoro nie zapisałeś ich w formie stringów

2. Zaczynasz wpisywać dane od 3 wiersza wiec w wierszu drugim znajdują się jakieś nagłówki tabeli, którą chcesz stworzyć.

 

Najprostsze rozwiązanie jakie przychodzi mi do głowy przy w/w założeniach:

 

Dim Petla As Long
Petla = 2
Do
   If Sheets("Wydatki").Cells(Petla, 2).Value = "" Then
       Sheets("Wydatki").Cells(Petla, 2).Value = Data
       Sheets("Wydatki").Cells(Petla, 3).Value = kwota
       Sheets("Wydatki").Cells(Petla, 4).Value = Kategoria
       Sheets("Wydatki").Cells(Petla, 5).Value = opis
       Exit Do
   End If
   Petla = Petla + 1
Loop