- A Sony szerint Japánon kívül is hódíthat az anime
- Szilárdtest-akkumulátorokat fejleszt Kína, jöhet az áttörés?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 11
- A választási tévinformációk ellen küzd a Meta
- Mikrotik routerek
- SQL kérdések
- Aliexpress tapasztalatok
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
-
IT café
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
válasz misa479 #20371 üzenetére
A makróban a csillagokkal megjelölt sorban írd át a Munka1-et a saját lapod nevére, ami az adatokat tartalmazza.
Sub KulonLapra()
Dim felso As Long, also As Long, nev As String
Dim WF As WorksheetFunction, WS As Worksheet
Set WF = Application.WorksheetFunction
Set WS = Sheets("Munka1") '**************
WS.Activate
'Rendezés a B oszlop szerint
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
felso = 2
Do While Cells(felso, 1) <> ""
nev = Range("B" & felso)
also = WF.Match(nev, Columns("B"), 1)
Sheets.Add.Name = nev
WS.Activate
Rows(1).Copy Sheets(nev).Range("A1")
Rows(also & ":" & felso).Copy Sheets(nev).Range("A2")
felso = also + 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.
-
Delila_1
Topikgazda
válasz misa479 #20480 üzenetére
Ez a makró elintézi:
Sub sortorol()
Dim sor As Long, usor As Long
usor = Range("B" & Rows.Count).End(xlUp).Row
Range("B10:B" & usor).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
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
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest