Add data into next empty row

[ Cal Lightman @ 19.10.2013. 17:00 ] @

Pozdrav svima.

Situacija je sledeca:

Zamisao mi je bila da napravim "running balance", ali imam jedan problem.

U ovom Sheet-u pritiskom na button NEW TRANSACTION otvara se userform gde treba da se unesu podaci. Nakon toga, klikom na "Check" button unose se podaci u tabelu.

Dakle, sve lepo unese, medjutim, kad hocu ponovo da unesem novu transakciju, on je unosi u taj isti prvi red, a ja hocu da unese ispod tog reda, odnosno u sledeci slobodan red.

Code za taj "check" button izgleda ovako:

Code:
Private Sub CommandButton5_Click()
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1) = ComboBox5.Text
Cells(erow, 2) = ComboBox4.Text
Cells(erow, 3) = TextBox5.Text
Cells(erow, 4) = TextBox4.Text
End Sub

Je l' moze molim vas neko da mi pomogne kako da premostim problem?

[ Jpeca @ 20.10.2013. 10:09 ] @

Prenego što startuješ makro postavi breakpoint na liniju erow = ..
Kad se izvršavanje zaustavi U interaktivnom prozoru izvrši

Code:
?Sheet1.Cells(Rows.Count, 1).Address

I proveri koju adresu ti vraća, verovatno je tu neki problem.
Ako ispod nemaš ništa možeš da nađeš poslednji popunjeni red tako što kreneš od dna radnog lista sa sh.Cells(65535, cl).End(xlUp).Row
pa bi komanda bila:

Code:
erow = ActiveSheet.Cells(65535, cl).End(xlUp).Row +1

[ Cal Lightman @ 20.10.2013. 14:47 ] @

Prijatelju,

Hvala ti na odgovoru. Anyway, resio sam problem. Nisam isprva lepo sinhronizovao imena Sheet-ova, sada je sve ok.

Medjutim, izrodio mi se neki drugi problem - nevezano za ovu tabelu. Naime, situacija je slicna, imam 9 kolona - od toga u 4 kolone ulaze vrednosti iz isto tako 4 textboxa i sve mi lepo radi, ali problem je u tome sto imam jos 5 kolona u koje ulaze vrednosti iz 5 checkbox-ova i nikako da izvalim na koju foru da uradim sledece: ako je checkbox checkiran - da u polje unese "Y", odnosno ako nije - "N".

Pokusavao sam to sa ovim codom:

Code:
Private Sub CommandButton1_Click()
erow = Sheet1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
Cells(erow, 3) = TextBox1.Text
Cells(erow, 4) = TextBox2.Text
Cells(erow, 5) = TextBox3.Text
Cells(erow, 6) = TextBox4.Text
If CheckBox1 Then Cells(erow, 7) = "Y"
ElseIf CheckBox2 Then Cells(erow, 8) = "Y"
ElseIf CheckBox3 Then Cells(erow, 9) = "Y"
ElseIf CheckBox4 Then Cells(erow, 10) = "Y"
ElseIf CheckBox5 Then Cells(erow, 11) = "Y"
End If
End Sub

Medjutim, nista. Javlja se problem "Else without If". Pokusavao sam i na fazon

Code:

If CheckBox1.Value = TRUE then Cells(erow, 7) = "Y"

kao i

Code:

If CheckBox1.Value = 1 .....

... kao sto rekoh - nista.

Da li mozes na konkretnom primeru ili nekom drugom da mi pojasnis kako bi ovo trebalo da izgleda da bi radilo?
Ako ti je tesko da "zamislis", mogu ti upload sliku.

Hvala svakako!
Pozdrav

[ Cal Lightman @ 22.10.2013. 14:55 ] @

Resih to ovako:

Code:
If CheckBox1.Value = True Then
Cells(erow, 7).Value = "Y"
ElseIf CheckBox1.Value = False Then
Cells(erow, 7).Value = "N"
End If

I tako za svaki.

Medjutim, imam problem posto je to excel document koji zahteva sifru da bi se otvorio i editovao ... Pa mi onda nijedan macro ne funkcionise. Kako ovo da resim?

[ Jpeca @ 23.10.2013. 07:28 ] @

Ovde imaš poziv open metode uz zadavanje passworda
http://www.elitesecurity.org/t316514-0#1900883

Što se tiče koda za checkbox (polja za potvrdu) iako to radi, umesto elseif trebalo bi samo else za rad razumljivijeg koda dakle

Code:

If CheckBox1.Value Then
Cells(erow, 7).Value = "Y"
Else
Cells(erow, 7).Value = "N"
End If

Za jednosatavni if ... else, postoji i skraćeni zapis u VBA iif

Code:
Cells(erow, 7).Value= IIf(CheckBox1.Value, "Y", "N")

_{[Ovu poruku je menjao Jpeca dana 23.10.2013. u 08:40 GMT+1]}

[ 3okc @ 23.10.2013. 22:16 ] @

Može da pomogne ovo video-uputstvo za čuvanje plaćenih narudžbi/faktura u "registar" (zapravo drugi list).

Citat:

Create an Invoice Register - Podcast 1808 (Bill Jelen)
This follow-up video to episode 1505 shows how to automatically create an invoice register as your are using one of the Invoice Templates from Excel.

Da podsetim, na raspolaganju su i gotova rešenja članova, među TOP temama: Program za fakturisanje

[ Cal Lightman @ 24.10.2013. 18:29 ] @

@Jpeca: TYVM! Impresivno poznavanje materije, bar iz moje perspektive.

@3okc: Hvala, bice od pomoci.