-
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
-
istvankeresz
aktív tag
Üdv!
Készítettem egy gombot, ami egy üres, template táblázatba (Maradek_TEMPLATE) összegyűjti a worksheet-ekből a kívánt értékeket és beírja a táblázatba. Odáig eljutottam, hogy végigmegy az összes worksheet-en, a megfelelő cellából kiveszi az értéket, de sajnos nem ugrik egy cellával lejebb, hanem a B9-be írja felűl mindig az átmásolandó értéket. A célom az lenne, hogy sorban B9, C9, D9...stb. cellákba másolja át a kiolvasott értékeket.
Private Sub CommandButton7_Click()
Dim lr As Long
Dim cell As Range
Dim ws As Worksheet
ThisWorkbook.Sheets("Maradek_TEMPLATE").Copy
ActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"
lr = Sheets(Maradék szabadságok).Range("A" & Rows.Count).End(xlUp).Row + 1
For Each ws In ThisWorkbook.Worksheets
For Each cell In ThisWorkbook.Sheets(ws.Name).Range("B2:B28")
ActiveWorkbook.Sheets(ws.Name).Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")
cell.Value: lr = lr + 1
Next cell
Next ws
End Sub
XBOX ONE GT: istvankereszt79
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen