| |
Pozdravljeni,
imam problem s prenosom podatkov oz. vrstic iz Excelove tabele v drugo Excelovo tabelo (ne v drugi delovni list). Iz tabele s podatki se morajo prepisati v drugo excelovo tabelo le tiste vrstice, katerim se v zadnjem stolpcu doda besedno zvezo "za objavo". Tistim vrsticam, ki se zapiše v zadnjem stolpcu kakršnakoli druga besedna zveza pa se ne prenesejo nikamor, oz. ostanejo samo v tej tabeli.
Ne vem kako naj definiram stavek: if zadnji stolpec je enak "za objavo" potem se ta vrstica prenese v drugo tabelo, drugače se ne prenese.
Lepo prosim za pomoč, če kdo seveda ve.
Hvala
spremenil: NikMan (5.10.2010 ob 10.16.47)
|
| |
| |
Dalo bi se narediti tako, da uporabiš avtomatskih filter.
Poglej si lekcijo:
http://www.zmaga.com/program_ucenje.php?....
Tako lahko prikažeš samo tiste, ki imajo v zadnjem stolpcu označeno "za objavo".Nato te vrstice označiš ter prilepiš v drugo tabelo.
spremenil: podtalje (4.10.2010 ob 23.07.44)
|
| |
| |
Hvala za nasvet. Bom poskusila tako.
Samo kaj ni nikakor možen avtomatski prenos?
Sem pogledala kako ste svetovali enemu izmed uporabnikov foruma (dejan.prasl), za prenos podatkov iz ene tabele v drugo vendar za prenos določenih celic ( s spodnjo kodo)
Workbooks.Open Filename:="C:\Documents and Settings\podtalje\Desktop\Datoteka1.xls"
Range("B3:C3").Select
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\podtalje\Desktop\Datoteka2.xls"
Range("B33").Select
ActiveSheet.Paste
To kodo sem tudi sprobala in deluje, zato sem mislila, da bi se dalo tole kodo samo malo dodelat, oz. nekako zdefinirat, da prenese cele vrstice in ne samo celice, če se na koncu zapiše besedno zvevo " za objavo".
Tako ne bi šlo?
Hvala
spremenil: NikMan (5.10.2010 ob 10.16.09)
|
| |
| |
Sicer se ne spoznam kaj dosti na programiranje Excelovih ukazov... Vendar bi poskusil spremeniti parametre pod Range (). Vpišeš, da kopira npr. vrstico B od stolpca 1 do n... oziroma kar pač rabiš... ne vem pa kako se to zapiše, da zna Excel prebrat 
|
| |
| |
Za izbiranje cele vrstice se uporablja ukaz:
....EntireRow.Select
|
| |
Prikazujem 1 od skupno 1 strani |
|
