Hirdetés
- btz: Internet fejlesztés országosan!
- sziku69: Fűzzük össze a szavakat :)
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- potyautas: Olyan valóságosnak tűnt
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- Hieronymus: Az igaz barátság kezdete
- Lalikiraly: Mercis kalandok - Huszonkilencedik rész
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
Szia!
Ha egyébként nem kell azokat az eljárásokat megcsinálni bezáráskor, amiben az üzenet feldobó makrók vannak, akkor szerintem elég kikapcsolni az eseménykezelést az Application.Enableevents=False sorral a fájl bezárása előtt, utána pedig (ha szükség van rá) akkor az Application.Enableevents=True sor visszakapcsolja az eseménykezelést. (Csak a legvégén ne felejtsd el visszakapcsolni. :)
Üdv.
-
Delila_1
veterán
Sub SortWorksheets()
Dim sCount As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount - 1
For j = i To sCount
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub -
Delila_1
veterán
Sub Hozzair()
Dim usor As Integer
Workbooks.Open Filename:="F:\TMP\Ebből.xls"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Ebbe.xls").Activate
usor = Range("A65536").End(xlUp).Row + 1
Range("A" & usor).Select
Selection.PasteSpecial Paste:=xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues
Workbooks("ebből.xls").Close
End Sub -
Delila_1
veterán
Sub Bevisz()
Dim usor As Integer
Sheets("Kezdő_lap").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Másik_lap").Select
usor = Range("A1").End(xlDown).Row + 1
Range("A" & usor).Select
Selection.PasteSpecial Paste:=xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues
End Sub -
bugizozi
őstag
Azt hiszem értem hogy mit mondasz, de nem értem, hogy miért nem működik nálad...
Egy üres excelben átneveztem a Munka2 lapot "Első vállalat" -ra,idézőjelek nélkül majd a Munka1 lapra váltottam.
A kódom:nev = "Első vállalat"
Sheets(nev).Selectfuttatom és simán átvált az "Első vállalat" -ra...
-
-
perfag
aktív tag
Én Eric Wells: Developing Microsoft Excel 95 Solutions with Visual Basic for Applications könyvét vettem meg annak idején. Ma már nem költök könyvre. Ha vennék John Walkenbach könyvet vennék, vagy az Apress kiadó könyveit. Nem árulok el titkot, hogy ezek a Net sötét oldalán (nem legálisan) letölthetők.
Ha beírod a google-be: excel vba tutorial egész jó oktató oldalakat találsz, angolul persze tudni kell egy bizonyos szinten. Ha túl vagy az alapokon akkor jöhet a Contextures, Chip Pearson és más Excel szakértők honlapjain a példák tanulmányozása.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Gran Turismo
- Lassan küszöbön a NTE: Neverness to Everness premierje
- Konteó topic
- iPhone topik
- Dreame X40 Ultra - épp csak kávét nem főz
- Kerékpárosok, bringások ide!
- Pixel plus ultra: teszten a 6K-s LG UltraFine monitor
- exHWSW - Értünk mindenhez IS
- Arc Raiders
- Anglia - élmények, tapasztalatok
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Microsoft és egyéb dobozos és OEM szoftverek
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- iPad felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASRock B450M R5 3600 16GB DDR4 512GB SSD GTX 1660 Super 6GB Rampage SHIVA DeepCool 400W
- Lenovo ThinkPad X1 Yoga G6 (6th Gen) - i7-1185G7, 32GB, 512GB SSD, multitouch + TOLL (ELKELT)
- 271 - Lenovo Yoga Pro 9 (16IAH10) - Intel Core U9 285H, RTX 5070 (multitouch) (ELKELT)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest