- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- LordAthis: AI Kérdés érkezett - 3600 soros Spagetti kód refaktorálása és budget
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- LordOLOG Szféra
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- GoodSpeed: Bye PET Palack, hello SodaStream
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
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
veterán
Munka1 lapnak nevezem azt, amelyiken az eredeti adataid vannak, Munka2-nek azt, amelyikre másolok.
A Munka1 Y1, Z1, és AA1 celláiba írom be (vagy választom ki érvényesítés segítségével) a 3 adatot.
A Munka2 lapra előre átmásoltam a címsort.Sub Makro()
Dim sor As Integer, usor As Integer, sor1 As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Dim a$, b$, c$
Set WS1 = Sheets("Munka1") 'Itt változtathatsz
Set WS2 = Sheets("Munka2") 'Itt változtathatsz
usor = WS1.Cells(Rows.Count, "A").End(xlUp).Row
sor1 = 2
a$ = WS1.Range("Y1")
b$ = WS1.Range("Z1")
c$ = WS1.Range("AA1")
'Előző adatok törlése a Munka2 lapon
WS2.Rows("2:5000").Delete shift:=xlUp
For sor = 2 To usor
If WS1.Cells(sor, "U") = a$ And WS1.Cells(sor, "V") = b$ And _
WS1.Cells(sor, "W") = c$ Then
Rows(sor).Copy WS2.Cells(sor1, "A")
sor1 = sor1 + 1
End If
Next
End SubKözben befutott egy másik megoldás is, de ha már megírtam, elküldöm.
Új hozzászólás Aktív témák
Hirdetés
- PlayStation 5
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- LordAthis: AI Kérdés érkezett - 3600 soros Spagetti kód refaktorálása és budget
- Milyen TV-t vegyek?
- Sony Xperia 1 VII - Látod-e, esteledik
- Medence topik
- Milyen légkondit a lakásba?
- iPad topik
- Kínai és egyéb olcsó órák topikja
- Megjött a jubileumi Pixel széria
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Acer TravelMate P214 i3-1115G4 12GB 512GB 14" FHD 1év garancia
- Azonnali készpénzes INTEL CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- Hordozható Gamer Számítógép / PC! HP Omen X 1000P / I7 7820HK / GTX 1080 8GB / 16GB DDR4
- AKCIÓ! GIGABYTE AORUS ELITE Z790 i7 14700K 64GB DDR5 1TB SSD 7900 XTX 24GB be quiet! SB 802 1000W
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: FOTC
Város: Budapest