-
Fototrend
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
-
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. -
Delila_1
Topikgazda
Próbáld ezt:
Sub ugras()
Sheets("Munka1").Select
usor = Range("A1").End(xlDown).Row
For sor = 1 To usor
lapnev = Sheets("Munka1").Cells(sor, 1)
Sheets(lapnev).Select
MsgBox "Itt vagyok a(z) " & lapnev & " lapon"
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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...
[ Szerkesztve ]
VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
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
Topikgazda
Összesítő B2 -> 2017.02.25
Összesítő B3 -> =SZÖVEG(B2;"ééééhhnn")
Összesítő B4 -> =INDIREKT("'D:\Próba\[" & B3 & ".xlsx]Munka1'!B3")Mindhárom cellát másolhatod jobbra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Autós kamerák
- Android alkalmazások - szoftver kibeszélő topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Ukrajnai háború
- Videó stream letöltése
- Gaming notebook topik
- Motorola Moto G24 Power - hol van az erő?
- Milyen videókártyát?
- Helldivers 2 (PC, PS5)
- Xbox Series X|S
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Steames kulcsok jó áron eladóak!
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24