- Apple Watch Sport - ez is csak egy okosóra
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- Egyre közelebb a Poco F6 startja
- Redmi Note 13 5G - fogyókúra után
- Apple iPhone 13 Pro Max - őnagysága
- Milyen okostelefont vegyek?
- iPhone topik
- Redmi Note 10 Pro - majdnem minden stimmel
- Garmin Instinct – küldetés teljesítve
- Honor Magic5 Pro - kamerák bűvöletében
Hirdetés
-
Dragon Age: The Veilguard címmel jön a sorozat régóta készülő új része
gp Hamarosan érkezik az új előzetes, a jövő hét elején pedig egy hosszabb játékmenet videóval is gazdagabbak leszünk.
-
Máris megvan az Oppo Reno12 Pro 5G európai ára
ma A specifikáció viszont nem teljesen egyezik meg a kínai modellével.
-
Computex 2024: a Ducky klaviatúrái sem restek felülni az analóg vonatra
ph A kábelmentes, fémházas One X kétféle méretben közeleg Cherry MX Multipoint kapcsólokkal, de lesz egy hagyományos, ugyanakkor limitált szériás változata is.
-
Mobilarena
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 p5quser #37629 üzenetére
Sorban megnyitod egy mappa adatait. Az egyes füzetek megnyitása után hívd meg ezt a makrót.
Sub Kigyujtes()
'B oszlopban szűrünk az "elszámolás" szóra.
'A szűrt adatok közül a szűrés előtti, a szűrt oszlop, és a szűrés utáni oszlop
'adatait másoljuk az Összesítés lap első üres sorába, a lap B oszlopától kezdve.
'Az Összesítő A oszlopába beírjuk a lap nevét, ahonnan másoltunk. Megszüntetjük a szűrést.
'Az Összesítő az utolsó lap a füzetben.
Dim lap As Integer, innen As Long, eddig As Long, WSO As Worksheet
Set WSO = Sheets("Összesítés")
Application.ScreenUpdating = False
For lap = 1 To Sheets.Count - 1
Sheets(lap).Activate
Range("$A:$F").AutoFilter Field:=2, Criteria1:="elszámolás"
Range(Cells(2, 1), Cells(10000, 3)).SpecialCells(xlCellTypeVisible).Copy
innen = WSO.Range("B" & Rows.Count).End(xlUp).Row + 1
WSO.Range("B" & innen).PasteSpecial xlPasteValues
eddig = WSO.Range("B" & Rows.Count).End(xlUp).Row
WSO.Range("A" & innen & ":A" & eddig) = ActiveSheet.Name
Range("$A:$F").AutoFilter Field:=2
Next
WSO.Activate: Range("A2").Select
Application.ScreenUpdating = True
End SubBiztosan hozzá tudod idomítani a saját igényeidhez.
Programozó: 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
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen