Matjazev.NET

Pozdrav Mi je uspelo narediti makro za napredni filter,zadeva lepo deluje,edina finta je v tem,če imaš nastavljen stolpec(komor vnašaš števila,ki jih iščeš) z 10 vrsticami npr.,mora v vseh 10-tih biti neko število,če pustiš npr. zadnjo vrstico v stolcu prazno,potem ko klikneš na gumb išči skopira ce...

Pozdrav Spodnji makro mi deluje,vendar nastane problem,če ročno povečam A1:E1700,potem mi pa ne filtrira več in mi skopira vse vrstice iz območja seznama v prazen stolpec in pogoj ne upošteva več. hvala in lp Makro3 Makro ' ' Range("A1:E100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range...

Pozdrav V excel imam 3 stolpce,številka,ime,naslov. Naredil sem filter na številka in nato preko številki zapisi izberem - je enako - vpišem številko in mi izpiše vse podatke osebe. Zanima me,če bi mi kdo lahko napisal makro,da bi se ob kliku na gumb odprlo okno v katerega bi lahko vpisal več števil...

Pozdrav Sedaj makro dela,vendar so težave,če posnamem makro mi napiše,da je xps tiskalnik Ne00,vendar vseeno pokaže ob zagonu makroja napako. Tudi ta vaš ukaz mi ga ne izpiše Sub Gumb2_Klikni() Debug.Print Application.ActivePrinter End Sub To pa je cela koda,kaj naj še spremenim. Sub Gumb1_Klikni() ...

Mi ne uspe pravilno popraviti in tudi file mi ne shrani pod imenom,ki ga vpišem v box.

Hvala vam za popravek

Pozdrav Zanima me,kaj je narobe z omenjenim makrojem.Rad bi da excel shrani datoteko,ki ji dam ime kot .xps na željeno lokacijo. Xps mora tudi biti berljiv v internet explorerju in makro mora tiskalnik na koncu nastaviti na privzete. Hvala in lep pozdrav Sub Gumb4_Klikni() Application.DisplayAlerts ...

Hvala za kodo,dokument mi shrani vendar pod pripono neznanega tipa,ki je ne morem odpreti.

David

Pozdrav Spodnji makro naj bi delal,vendar mi ne odpre mape,javi tudi ne kakšne napake,kaj je narobe? Sub Gumb7_Klikni() Dim YourFile As Variant Dim YourFolderPath As Variant YourFolderPath = "C:\DAVID" 'update this ChDir YourFolderPath YourFile = Dir(YourFolderPath & "*.xls") Do While YourFile <> ""...

Pozdrav

Gumb 6 naredi tole,natisne vse v območju celic.

Sub Gumb6_Klikni()
'
' Makro2 Makro
'

'
Range("A1:J49").Select
Selection.PrintOut Copies:=1
End Sub

Natisne dokument s slikami vred,torej prebere dokument s slikami vred,nato pa naj bi odstranilo te prebrane slike in natisnilo še brez slik

hvala in lp

Pozdrav Zanima me,kaj je narobe s tole kodo,da se slike vseeno natisnejo. hvala in lp Sub Button7_Click() skrij List1.Activate Gumb6_Klikni pokazi End Sub Sub pokazi() List1.Shapes("Slika 2").Visible = True List1.Shapes("Slika 5").Visible = True List1.Shapes("Slika 6").Visible = True List1.Shapes("S...

Pozdrav

V celico bi rad vpisal 1.42,vendar mi to pretvori,če vpišem 1,42 z vejico pa je vredu.
Kaj moram narediti,da bo ostalo število 1.42?

Hvala in lp

Hvala za nasvet.

LP

Hvala bom še poskušal,če ne bo šlo se slišiva.

lp

Pozdrav Hvala deluje,samo ste mi pozabili dodati imenik D,da se odpre in nastavi pot na disk d:\nekaj in je vrsta datoteke nastavljena na excelov list,jaz vpišem le ime datoteke. Ko sem posnemal makro sem dobil nekaj takega,vendar tukaj ne piše da shrane na disk d in v mapo nekaj in imam problem,če ...