-
GAMEPOD.hu
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
-
poffsoft
addikt
válasz
morgusz #28171 üzenetére
Sub proba()
Dim lista() As String
Dim i As Long
Dim usor As Long ' last used row in source sheet
Dim lrow As Long 'last row in this sheet
Dim scol As Long ' first column of actual formulas source
Dim ecol As Long ' last column of actual formulas source
lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
Worksheets(lista(0)).Activate
For i = 1 To UBound(lista)
usor = Worksheets(lista(i)).UsedRange.Rows.Count
scol = ((i - 1) * 4) + 1
ecol = ((i - 1) * 4) + 3
lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
If lrow < 3 Then lrow = 3
ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
Selection.Clear
Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
Next i
End Suba lista=split( után az idézőjelek között vesszővel elválasztva kellenek a munkalapnevek.
Munka1 az összesítő lap neve, a többi pedig a források, ahogyan mondtad, Munka2-től Munka9-ig.[ Szerkesztve ]
[ Szerkesztve ]
-
poffsoft
addikt
válasz
morgusz #28171 üzenetére
upsz, kis hiba maradt,
az a selection.clear nem kell a vége felé!Sub proba()
Dim lista() As String
Dim i As Long
Dim usor As Long ' last used row in source sheet
Dim lrow As Long ' last row in this sheet
Dim scol As Long ' first column of actual formulas source
Dim ecol As Long ' last column of actual formulas source
lista = Split("Munka1,Munka2,Munka3,Munka4,Munka5,Munka6,Munka7,Munka8,Munka9", ",")
Worksheets(lista(0)).Activate
For i = 1 To UBound(lista)
usor = Worksheets(lista(i)).UsedRange.Rows.Count
scol = ((i - 1) * 4) + 1
ecol = ((i - 1) * 4) + 3
lrow = Range(Cells(3, scol), Cells(Rows.Count, ecol)).End(xlUp).Row
If lrow < 3 Then lrow = 3
ActiveSheet.Range(Cells(3, scol), Cells(lrow, ecol)).Clear
Range(Cells(2, scol), Cells(2, ecol)).Copy Destination:=Range(Cells(3, scol), Cells(usor, ecol))
Next i
End Sub[ Szerkesztve ]
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Vezetékes FEJhallgatók
- A fociról könnyedén, egy baráti társaságban
- Gaming notebook topik
- Politika
- Hobby elektronika
- Kormányok / autós szimulátorok topicja
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- 2030-tól jöhet el a Hyper-NA EUV berendezések kora
- Tudományos Pandémia Klub
- További aktív témák...
- BIG BOX! - Aladdin (1994, CD)
- Verstár '98 - A magyar líra klasszikusai félszáz költő összes verse
- COLLECTOR! - World of Warcraft + 5 kiégészítője (Burning Crusade, Cataclysm, Mists of Pandaria...)
- Megmaradt steam, gog és origin játékkulcsaim fris.:2024.06.17
- Steames játék 250 Forint/db vagy 2000 Forint/10db linkekkel