[es] - Add data into next empty row

Cal Lightman

Član broj: 317851
Poruke: 88
*.dynamic.sbb.rs.

+13 Profil

^{19.10.2013. u 17:00 - pre 140 meseci}

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?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
37.19.108.*

Sajt: www.gowi.rs

+112 Profil

Re: Add data into next empty row

^{20.10.2013. u 10:09 - pre 140 meseci}

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

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

Odgovor na temu

Cal Lightman

Član broj: 317851
Poruke: 88
*.dynamic.sbb.rs.

+13 Profil

Re: Add data into next empty row

^{20.10.2013. u 14:47 - pre 140 meseci}

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

Odgovor na temu

Cal Lightman

Član broj: 317851
Poruke: 88
*.dynamic.sbb.rs.

+13 Profil

Re: Add data into next empty row

^{22.10.2013. u 14:55 - pre 140 meseci}

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?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
212.200.121.*

Sajt: www.gowi.rs

+112 Profil

Re: Add data into next empty row

^{23.10.2013. u 07:28 - pre 140 meseci}

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]}

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

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1330

Jabber: 3okc@elitesecurity.org

+121 Profil

Re: Add data into next empty row

^{23.10.2013. u 22:16 - pre 140 meseci}

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

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!

Odgovor na temu