- Középpontba kerültek a hibrid autók, alig fogyaszt a BYD újdonsága
- Kiderült, hogy hol veszik a legtöbb kínai EV-t
- Kaspersky Antivirus és Internet Security Fórum
- Synology NAS
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- DIGI internet
- Aliexpress tapasztalatok
- Egyre több európai használja a Telegramot, ezért megkereste az EU
- WLAN, WiFi, vezeték nélküli hálózat
- Google Chrome
-
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 erich85T #12018 üzenetére
A makró egy irányított szűréssel indul, ami az A oszlopban lévő neveket szűri meg úgy, hogy minden név csak egyszer szerepeljen az E oszlopban. Ezután a nevek mellé felsorolja az adatokat.
Sub mm()
Dim sor As Integer, usor As Integer, sor_név As Integer, usor_név As Integer
Dim név, oszlop As Integer
'Irányított szűrés az E oszlopba az egyedi nevekkel
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1"), Unique:=True
usor = Range("E1").End(xlDown).Row: usor_név = Range("A1").End(xlDown).Row
'Kigyűjtés
For sor = 2 To usor
név = Cells(sor, "E"): oszlop = 6
For sor_név = 2 To usor_név
If Cells(sor_név, 1) = név Then
Cells(sor, oszlop) = Cells(sor_név, 2)
oszlop = oszlop + 1
End If
Next
Next
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
- Autós topik látogatók beszélgetős, offolós topikja
- Politika
- Szimpatikusnak tűnik a T Phone új generációja
- Samsung Galaxy A54 - türelemjáték
- eFootball
- Középpontba kerültek a hibrid autók, alig fogyaszt a BYD újdonsága
- Fotók, videók mobillal
- Asztalos klub
- Bestbuy játékok
- Kiderült, hogy hol veszik a legtöbb kínai EV-t
- 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