Hirdetés
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- AMD vs. INTEL vs. NVIDIA
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Sony MILC fényképezőgépcsalád
- Plazma TV topic
- Hogy is néznek ki a gépeink?
- Stratégiai biztonsággal védekeznek a dráguló memóriák ellen a gyártók
- Milyen egeret válasszak?
- 3D nyomtatás
-
PROHARDVER!
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
-
1. Ha az a korábbi kód egy valós kód volt(és nem csak valamit betettél példának), akkor az a kód minden esetben az épp aktív munkalapon dolgozik, ergo mindegy hány darab és nevű munkalap van a munkafüzetben, mindig azon végzi el a módosításokat/feladatát, ami épp ki van jelölve, azaz aktív.
2. Az is egyértelműen leírtad, hogy az INT nevű munkalap minden esetben biztosan létezikEbből kiindulva ennyi az egész ("if munkalap neve = INT, lefut a makró, else nem fut le" - olyan nincs, hogy else nem fut le)

Private Sub MyMacro()
Dim lngLastRow
If ActiveSheet.Name = "INT" Then
lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Columns("X:X").Select
Selection.Insert Shift:=xlToRight
Range("X1").Select
ActiveCell.FormulaR1C1 = "common_id"
Range("X2").Select
.
.
.
.
End If
End Sub
Új hozzászólás Aktív témák
- Battlefield 6
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Mikrotik routerek
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- AMD vs. INTEL vs. NVIDIA
- laskr99: DFI és DFI Lanparty gyűjteményem
- Windows 11
- Redmi Note 12 Pro - nem tolták túl
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Sony MILC fényképezőgépcsalád
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Keresem a Barkács Balázs Játékokat
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MS SQL Server 2016, 2017, 2019
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 512GB SSD RX 590 8GB ZALMAN T4 Plus ADATA 600W
- LG 27US550-W - 27" IPS / 3840x2160 4K / 60Hz 5ms / HDR10 / Forgatható / sRGB 99%
- Bomba ár! Dell Latitude 5491 - i7-8850H I 16GB I 512GB SSD I 14" FHD I HDMI I Cam I W10 I Gari!
- Surface Pro 7+ i5-1135G7 16G 256GB 1 év garancia
- Microsoft Surface Laptop 3 13.5" fekete i5-1035G7 16GB 512GB 1 év garancia
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi

Fferi50

