Obrazec - seznam

Pomoč pri delu z MS Excelom
Odgovori
MP
Prispevkov: 12
Pridružen: Sr Feb 07, 2007 10:46 am

Obrazec - seznam

Odgovor Napisal/-a MP »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Obrazec - seznam

Odgovor Napisal/-a admin »

Odgovor boste našli v tejle tematiki.
lp,
Matjaž Prtenjak
Administrator
MP
Prispevkov: 12
Pridružen: Sr Feb 07, 2007 10:46 am

Re: Obrazec - seznam

Odgovor Napisal/-a MP »

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 ....
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: Obrazec - seznam

Odgovor Napisal/-a cedra »

Vaš problem sem rešil s spodnjo kodo:

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
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. :wink:
lp,

cedra
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Obrazec - seznam

Odgovor Napisal/-a admin »

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 ....
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.
lp,
Matjaž Prtenjak
Administrator
MP
Prispevkov: 12
Pridružen: Sr Feb 07, 2007 10:46 am

Re: Obrazec - seznam

Odgovor Napisal/-a MP »

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
Odgovori