-
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
-
Delila_1
Topikgazda
Csak most tudtam újra ránézni. Megvan a hiba, én követtem el.
Új lap beszúrása esetén nem álltam vissza a kezdő lapra.
Helyesen:Sub Masol()
Sheets("Munka1").Select
sor = 2
Do While Cells(sor, 10) <> ""
tal = 0
lapnév = Cells(sor, 10)
For lap = 2 To Worksheets.Count
If Sheets(lap).Name = lapnév Then
tal = 1
Exit For
End If
Next
If tal = 0 Then
Worksheets.Add.Name = lapnév
Sheets(lapnév).Move After:=Sheets(2)
Sheets("Munka1").Select
End If
usor = Sheets(lapnév).Range("A6000").End(xlUp).Row + 1
ActiveSheet.Range("A" & sor & ":I" & sor).Copy _
Destination:=Sheets(lapnév).Range("A" & usor)
sor = sor + 1
Loop
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.
Új hozzászólás Aktív témák
- Motorola Edge 30 Neo - wake up, Jr...
- Melyik tápegységet vegyem?
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- BestBuy topik
- World of Tanks - MMO
- Mobilhasználat külföldön
- PlayStation 1 / 2
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Mini-ITX
- Szerkesztett és makrofotók mobillal
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest