Keresés

Kérdés.
a makróban nem a Sheets("munkalapneve") módon szeretném megszólítani a munkalapot, mert az változik. Az sem jó ha változóba rakom a munkalap nevét.

Meg lehet vhogy szólítani azzal a megnevezéssel, ami a munkalap tulajdonságainál van a Microsoft Excel Objects-en belül) vhogy így:
munka1(munkalapneve)
munka2(munkalapneve)
stb...
és én pl a munkax-el szeretném megszólítani, mert az állandó.

Azt a minimális makrót amit az új munkafüzetbe átmásolok azt már nem akarom kitörölni, sőt az szükséges az új munkafüzet működéséhez. Csak elrejteni/levédeni szeretném. :o)

Foglalkozva a témával egy gondolat már felötlött bennem ma reggel, de még nem próbáltam ki. Létrehozok egy üres de levédett munkafüzetet (kézzel) és ezt nyitom meg a programból, ebbe másolom bele a munkafüzetet majd mentem más néven. Nem túl elegáns, de ha működni fog és nem lesz jobb ötlet akkor ez lesz.

Talán ez segítség
http://exceltip.com/st/Delete_all_macros_in_a_workbook/document_using_VBA_in_Microsoft_Excel/505.html

Egy dologban biztos vagyok:
Az újonnan létrehozott munkafüzetekből ki lehet törölni a makrót. (Makróval)
Ha lesz időm utánanézek a mikéntjének, de úgy emlékszem itt is szó volt már erről.

Kicsit visszanézed az előzményeket akkor látni fogod hogy vmit félreérthettél.

A Formátum eszköztárban van gyárilag egy "oszlopok közt középre" nevű parancs és ikon. Az ugyanezt tudja, ha jól látom.

A mentés SaveAs-al történik, de a munkafüzet létrehozása nem.

A Sheets("xxx").Copy hatására az adott munkalapot egy vadi új "szűz" munkafüzetben hozom létre és ennek a VBAprojekje alapértelmezésként nem védett.

A feladat, amit már megoldottam, hogy egy összetett munkafüzetből különböző felhasználói beállításokkal hozok létre több százas nagyságrendben új munkafüzeteket melyek mindegyike más mennyiségű és adattartalmú munkalapot tartalmaz. Ezen munkalapokon vannak gombok és vezérlő elemek, melyekhez makrók tartoznak és mivel sajnos új munkafüzetbe másolom azokat, így alapértelmezésként láthatóak és szerkeszthetőek.

Egy ideig a saját munkafüzetemet mentettem el SaveAs-al minden esetben, a nem szükséges munkalapok elrejtésével, ekkor ez nem volt probléma mert a saját munkafüzet projektje védett, de már túl nagy méretű munkafüzetek lettek. Ezért kellett váltanom, hogy csak a szükséges és elégséges mennyiségű adatot hozom létre egy új munkafüzetben.

találtam egy jó kis anyagot: itt
VBA 33 leckében. angol

Jól gondolom, hogy SaveAs-al mented, ill. így hozod létre az új munkafüzeteket?

Nem fontos egyesíteni.

A 3 cellát kijelölve a formátumban az igazításnál, vízszintes elrendezésnél "A kijelölés közepére" formát kell választani. Mivel ezt sűrűn alkalmazom, írtam egy kis makrót rá (a personal.xls-ben), és egy ikonthoz rendeltem, hogy mindig kéznél legyen.

 

Sub Kijelölés_közepére()
    Selection.HorizontalAlignment = xlCenterAcrossSelection
End Sub

(Szívesen várok kifejezőbb ikonra példát)

Nem kézzel kell beállítanom. Azt ismerem. Fut egy program, ami létrehoz egy új munkafüzetet, belemásol egy munkalapot amin makrók is vannak, majd elmenti és bezárja. Még mentés előtt ebből a futó programból kellene levédeni ezt az új munkafüzetet.

Be lehet. Tools/VBAProject -> Protect fül

Ebben a formában nincs, csak ha 3-at egyesítessz. (Szerintem felesleges is - és jobb kerülni az egyesített cellák használatát.)

Sziasztok!
Ismét egy kis segítség kellene.
Egy munkafüzetben lévő makróból hozok létre és mentek le más munkafüzeteket. Ezeknek az új munkafüzeteknek a lapjain találhatóak gombok és egyéb objektumok a hozzájuk tartozó kódokkal együtt. Viszont ezek a kódok megtekinthetőek, átírhatóak. A futó programból ennek a másik munkafüzetnek a VBAprojektjére be lehet állítani jelszót? Gyanítom hogy nem, de akkor valahogy le lehet védeni a makrókat?

Kár :( Köszi.

Pedig simán lehetne ilyen funkció AB12 cella felbontva 3 részre, AB(A)12, AB(B)12, AB(C)12 vagy ilyesmi...

Nem. Inkább csak "fordítva" működik.

Sziasztok!

Egy cellát fel lehet bontani pl 3 cellára?

Az a módszer, hogy a cellákat összevonjam, ahol nincs szükség a 3 külön adat bevitelére (mert ezek vannak nagytöbbségben), sok igazítással és macerával járna, tehát nem szimpatizálok vele.

na, köszi sikerült.
Úgy csináltam, hogy oszlop celláit felpakoltam 1-esekkel és részössszeggel (ami változik a szűréssel együtt) figyeltem egy másik cellában.

Jó, de ez nem új kód, hanem a tegnapi a Worksheet_Calculate eseménykezelésbe biggyesztve ;-)

Nem rossz. Nekem más volt az alapötletem, de a tied jobban tetszik.
Viszont a játékomat meg elrontottad, mert kész kódot írtál be. :)
Mindjárt ki is próbálom.

Szia!

 

Ezen már én is agyaltam tegnap, sőt, egy picit még kutattam is a témában... A munkalap események közül talán a Worksheet_Calculate használható, de ekkor a kérdéses munkalapra fel kell venni egy függvényt pl. MA(). Ezt ugye minden munkalap eseménynél frissíti...

 

Szóval, ha felteszel egy tetszőleges függvényt, akkor megoldás lehet ez:

 

Private Sub Worksheet_Calculate()
Dim x As Byte
Dim s As String

 

  If ActiveSheet.AutoFilterMode = True Then ' ha a munkalapon az autoszűrő aktív
    For x = 1 To ActiveSheet.AutoFilter.Filters.Count
      If ActiveSheet.AutoFilter.Filters(x).On Then ' itt nézzük meg, hogy aktív-e valamelyik
        s = Mid(ActiveSheet.AutoFilter.Filters(x).Criteria1, 2, Len(ActiveSheet.AutoFilter.Filters(x).Criteria1))
        MsgBox "Indulhat a program, a(z) " & x & ". szűrő aktiválva, értéke: " & s
      End If
    Next x
  Else: MsgBox "Autoszűrő kikapcsolva"
  End If
 
End Sub

 

 

 

Szia,
Még arra van megoldás, hogy ne kelljen egy gombot sem megnyomni, hanem ha változik valami az autofilterben akkor hajtódjon végre?
(a munkalap események nem a legjobbak sajnos, mert a szűrő váltásakor kell végrehajtódnia a makrónak (Ez egy sima for each ciklus, ami a soron megy végig és elrejt bizonyos oszlopokat)
Nem kell kész kód, csak vmi pseudo - mert különben elveszed a játékomat. :)

Nagyon szívesen :-)

Hálás köszönet, a dőlt betűs első sorod tartalmazza a lényeget.
Nagyjából fél órát keresgéltem erről egy régebben látott összefoglalót, de nem tudtam konkrétan mire keressek. Most, hogy megírtad, rögtön meg is találtam :)
Köszönöm még egyszer a segítségedet.

Köszönöm. A figyelmetlenségem miatt történt a "baleset". A Long-gal helyrerázózott a lelke.

A kiemelt bold rész tartalmazza az értéket. Próbáld ki a Mid függvény nélkül is így:

 

s = ActiveSheet.AutoFilter.Filters(x).Criteria1 

 

------------------------------------------

 

Sub Autoszűrő2()
Dim x As Byte
Dim s As String

 

If ActiveSheet.AutoFilterMode = True Then ' ha a munkalapon az autoszűrő aktív
    For x = 1 To ActiveSheet.AutoFilter.Filters.Count
      If ActiveSheet.AutoFilter.Filters(x).On Then ' itt nézzük meg, hogy aktív-e valamelyik
        s = Mid(ActiveSheet.AutoFilter.Filters(x).Criteria1, 2, Len(ActiveSheet.AutoFilter.Filters(x).Criteria1))
        MsgBox "A(z) " & x & ". szűrő aktiválva, értéke: " & s
      End If
    Next x
  Else: MsgBox "Autoszűrő kikapcsolva"
  End If

 

End Sub

Tökélete, köszönöm szépen.
És azt pl, hogy mi van kiválasztva az autoszűrőben mi mondja meg?

Ezeket használom, nálam jól beváltak:

Sub Sorok_Oszlopok()

Dim utolsosor As Long
Dim utolsooszlop As Byte

'sorok száma az "A" oszlop értékei alapján (akkor is jó, ha "lyukas")
utolsosor = Range("A" & Rows.Count).End(xlUp).Row

'oszlopok száma az 1. sor értékei alapján
utolsooszlop = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox utolsosor & vbNewLine & utolsooszlop

End Sub

Őszintén szólva, azt nem értem, hogy miért boolean a felsorolt változók típusa?