Add data into next empty row

Add data into next empty row 19.10.2013. u 18:00 · pre 158 meseci #1

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?

Re: Add data into next empty row 20.10.2013. u 11:09 · pre 158 meseci #2

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

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: Add data into next empty row 20.10.2013. u 15:47 · pre 158 meseci #3

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

Re: Add data into next empty row 22.10.2013. u 15:55 · pre 158 meseci #4

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?

Re: Add data into next empty row 23.10.2013. u 08:28 · pre 158 meseci #5

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")

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

1

Re: Add data into next empty row 23.10.2013. u 23:16 · pre 158 meseci #6

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

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

1

Re: Add data into next empty row 24.10.2013. u 19:29 · pre 158 meseci #7

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

@3okc: Hvala, bice od pomoci.

Forum kao aplikacija na telefonu

Srodne teme