Pozdravljeni
Ne vem kako naj rešim problem, s katerim se ubadam že kar nekaj časa, pa vam pišem in prosim za pomoč.
Na prvem listu sem oblikovala sem obrazec za vnos podatkov o zaposlenih, ki imajo določeno zaporedno številko. Primer skrajšane verzije:
PODATKI O ZAPOSLENI OSEBI Zap. Št. 3
Ime: Anton Priimek: Zupan
Naslov Velenjska 13 Pošta: Ljubljana Št. Pošte 1000
Zaposlen od 13.5.1990 Zaposlen do:
Naredila sem makro, da se po potrditvi (oz. zagonu makroja) vsi ti podatki o vnešeni osebi zapišejo na drugem listu vedno v drugo vrstico. Na tem drugem listu so podatki samo o zadnji vneseni osebi. Primer:
Zap. Št. Ime Priimek Naslov Pošta Št. Pošte Zaposlen od Zaposlen do
3 Anton Zupan Velenjska 13 Ljubljana 1000 13.5.1990
Na tretjem listu pa sem oblikovala seznam vseh vnesenih oseb (vsaka oseba ima svojo zaporedno številko). Primer:
Zap. Št. Ime Priimek Naslov Pošta Št. Pošte Zaposlen od Zaposlen do
1 Janez Novak Novakova 1 Koper 6000 1.2.1993
2 Marija Hafner Zoisova 14 Kranj 4000 14.8.1999
3 Anton Zupan Velenjska 13 Ljubljana 1000 13.5.1990
Nikakor mi ne uspe izdelati makroja, da bi se podatki iz drugega lista (oseba z zaporedno številko 3) prenesli na tretji list v prvo prazno vrstico oz. če že obstaja zap.št. 3, da se ti podatki popravijo.
Podatki o osebi pod zap. št. 1 in 2 pa ostanejo nespremenjeni.
Upam, da nisem preveč zakomplicirala, ampak sem že čisto preč, ko ne vem kako naprej.
Hvala že vnaprej za odgovor.
LP MP
Obrazec - seznam
Re: Obrazec - seznam
Najlepša hvala za odgovor
Imam pa še vedno probleme. Začetniške težave ....
V prvo prazno vrstico stolpca A mi že uspe prenesti podatek (zap. št.: 1). Ne uspe mi pa sočasno preneseti še vse ostale podatke v izbrano vrstico (stolpec B "Priimek": Zupan, stolpec C "Naslov": Velenjska 13, ....).
LP MP
PS: Sem uspela dobiti vašo knjigo Visual Basic za Aplikacije. Že študiram. Super knjiga. Ampak vprašanj je pa še vedno veliko ....
Imam pa še vedno probleme. Začetniške težave ....
V prvo prazno vrstico stolpca A mi že uspe prenesti podatek (zap. št.: 1). Ne uspe mi pa sočasno preneseti še vse ostale podatke v izbrano vrstico (stolpec B "Priimek": Zupan, stolpec C "Naslov": Velenjska 13, ....).
LP MP
PS: Sem uspela dobiti vašo knjigo Visual Basic za Aplikacije. Že študiram. Super knjiga. Ampak vprašanj je pa še vedno veliko ....
Re: Obrazec - seznam
Vaš problem sem rešil s spodnjo kodo:
Imena listov boste morali napisati kot jih imate poimenovane vi...
Makro predvideva, da imate podatke za kopiranje v drugi vrstici na listu 2. Mislim, da nebi smeli imeti problemov in
bo rešitev to kar želite.
Koda: Izberi vse
Sub Nov_podatek()
Dim i As Integer 'predvidevam, da je zapisov manj kot 32.000
Sheets("Sheet2").Select '"Sheet2" -> spremenite z imenom vašega lista
Rows("2:2").Select 'velja za imena listov v narekovajih
Selection.Copy
Sheets("Sheet3").Select 'Kopiranje 2. vrstice zna listu 2
'Če zaporedna štev. obstaja, jo prepiše z novimi podatki
For i = 1 To WorksheetFunction.CountA(Sheet3.Range("A:A"))
If Sheets("Sheet2").Cells(2, 1) = Cells(i, 1) Then
Cells(i, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'MsgBox: obvesti o tem kaj je bilo narejeno,
'če vam je odveč, dajte v komentar
MsgBox "Zapis je bil spremenjen...", vbInformation, "Info"
Exit Sub
End If
Next i
'Če zaporedna štev. ne obstaja, jo doda
Sheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'MsgBox: isto kot zgoraj
MsgBox "Dodan je bil nov zapis...", vbExclamation, "Info"
End Sub
Makro predvideva, da imate podatke za kopiranje v drugi vrstici na listu 2. Mislim, da nebi smeli imeti problemov in
bo rešitev to kar želite.
lp,
cedra
cedra
Re: Obrazec - seznam
Ja knjiga je požela veliko odobravanja in se je zato že dolgo ne da več kupiti. Upam da vam bo res koristila in da boste zadovoljni. Če pa želite, pa vam vse skupaj lahko napišem tudi jaz.MP napisal/-a:PS: Sem uspela dobiti vašo knjigo Visual Basic za Aplikacije. Že študiram. Super knjiga. Ampak vprašanj je pa še vedno veliko ....
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Obrazec - seznam
Cedra,
res najlepša hvala za odgovor. Priznam, da bo preteklo še veliko vode, preden bom sama rešila takšen problem. Ampak, mogoče mi bo kdaj uspelo, saj kjer je volja, tudi uspeh ni izključen ....
Zadeva mi odlično deluje. Če bom imela še kakšen problem, v kar ne dvomim, pa se priporočam
Matjaž tudi vam hvala za odgovor in se priporočam še za naprej.
LP MP
res najlepša hvala za odgovor. Priznam, da bo preteklo še veliko vode, preden bom sama rešila takšen problem. Ampak, mogoče mi bo kdaj uspelo, saj kjer je volja, tudi uspeh ni izključen ....
Zadeva mi odlično deluje. Če bom imela še kakšen problem, v kar ne dvomim, pa se priporočam
Matjaž tudi vam hvala za odgovor in se priporočam še za naprej.
LP MP