Matjazev.NET

Ja števec resnično ni potreben.
Najlepša hvala!
BJ

Pomagal sem si s števcem. sedaj deluje odlično, koda pa izgleda takole: Private Sub cmdNatisni_Click() Dim i As Long Dim stevec As Long stevec = 1 For i = 1 To 5 Cells(i, 1) = i With ActiveSheet If IsNumeric(.Range("Q1").Value) Then .Range("Q1").Value = .Range("Q1").Value + 1 End If End With ActiveW...

Lep pzdrav! Potrebujem malo pomoči. Kako naredim zanko, da se makro požene npr 5 krat? Hvala in LP Private Sub cmdNatisni_Click() With ActiveSheet If IsNumeric(.Range("Q1").Value) Then .Range("Q1").Value = .Range("Q1").Value + 1 End If End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate...

V osebni mapi imam makro "Pop-up Calendar". Našel sem ga na strani http://www.fontstuff.com/vba/vbatut07.h ... epo deluje

V tem oknu (Immediate) imam že naslednjo kodo: [auto_open] < [SetupFunctionIDs] < [SetupFunctionIDs] > [PickPlatform] < [PickPlatform] > [VerifyOpen] < [VerifyOpen] > 1 [RegisterFunctionIDs] < [RegisterFunctionIDs] > [auto_open] > Application.CommandBars("Cell").Enabled = True Dodal sem vašo kodo, v...

Pozdravljeni!
Ali je mogoče komu jasno, zakaj mi je desna miškina tipka v EXCELU (smo v EXCELU) prenehala delovati? Ko kliknem na celico z desno tipko, se namesto menija kurzor spremeni v navadno izbiranje. Poizkusil sem z obnovitvijo sistema pa ni nič.
Hvala za pomoč!

Našel približno rešitev.
V celico K1 sem vpisal " ='Vnosni list'!B2"
Lep pozdrav in hvala za pomoč
BJ

Ne! List "ovojnice" ni zaščiten. Če celoten postopek izvedem ročno, potem vse deluje.

Pozdravljeni! Izdelal sem popolnoma nov list (ne skopiral), pa se zadeva ustavi na istem mestu. Tukaj je celoten makro Hvala! B Private Sub cmdKuverta_Click() ActiveSheet.Unprotect Range("B2").Select Selection.Copy Sheets("Ovojnice").Select Range("K1").Select Selection.PasteSpecial Paste:=xlPasteVal...

Lep pozdrav vsem skupaj! Makro, katerega sem posnel, me ne uboga in se "zatika". Kje bi lahko bila napaka? Pri vrstici "Range("K1").Select" se zadeva ustavi in javi napako "Metoda Select razreda Range je spodletela" Lepa hvala za pomoč BJ Private Sub cmdKuverta_Click() ActiveSheet.Unprotect Range("B...

Najlepša hvala
LPB

Besedilo se prlije in vrstica razširi, vendar, če naredim popravek (skrčim vrstico, nato vnesem novo besedilo), pa se stvar ustavi.

Pozdravljeni Matjaž!
Kako dosežem, da se vrstice n.pr.:C4;C10 samodejno razširijo in prilagodijo besedilu. V obliki celic imam vključeno prelivanje besedila, ampak ne deluje. Ostale celice so zaklenjene, z odprto možnostjo urejanja vrstic
Lep dan želim B

Najlepša hvala! Deluje
Lep pozdrav

Lep pozdrav!
Imam ukazni gumb, kateri med drugim tudi zapre delovni zvezek. Kako izključim opozorilo "Ali želite shraniti spremembe, ki ste jih naredili v "Zvezek xx"?"
Hvala za pomoč