Hirdetés
- ASUS Maximus VIII Ranger Z170 6-7-8-9-10 gen támogatás (Coffeetime mod)
- DFI és DFI Lanparty gyűjteményem
- Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER!
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Victoryus: Hp T630 thin client, htpc
- GoodSpeed: Reklámmentesítés HyperOS-ben Xiaomi/POCO/Redmi
- GoodSpeed: Möbelix Milan íróasztal - a tapasztalatok összeszerelés után
- GoodSpeed: Egy bihari a Hajdúságban
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
-
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
válasz
Xenon86 #23146 üzenetére
Figyelmesebben olvasva a kérdést átírtam a makrót.
Ez a K oszlopba írja be a darabszámokat.Sub HolVan()
Dim sor As Integer, sor1 As Integer
Range("L1") = "_"
Range("L2:L22") = "=B2 & L$1 & C2 & L$1 & D2 & L$1 & E2 & L$1 & F2"
Range("M2:M5") = "=H2 & L$1 & I2 & L$1 & J2"
For sor = 2 To 22
For sor1 = 2 To 5
If InStr(Cells(sor, "L"), Cells(sor1, "M")) Then
Cells(sor1, "K") = Cells(sor1, "K") + 1
End If
Next
Next
Range("L1:M22").ClearContents
End Sub -
Delila_1
veterán
válasz
Xenon86 #23146 üzenetére
A makró a futás idején segédoszlopként használja az L1:M22 tartományt, majd törli ezeket az adatokat.
Abba a sorba, ahol egyezést talál, a G oszlopba X-et ír.Sub HolVan()
Dim sor As Integer, sor1 As Integer
Range("L1") = "_"
Range("L2:L22") = "=B2 & L$1 & C2 & L$1 & D2 & L$1 & E2 & L$1 & F2"
Range("M2:M5") = "=H2 & L$1 & I2 & L$1 & J2"
For sor = 2 To 22
For sor1 = 2 To 5
If InStr(Cells(sor, "L"), Cells(sor1, "M")) Then
Cells(sor, "G") = "X"
Exit For
End If
Next
Next
Range("L1:M22").ClearContents
End Sub
Új hozzászólás Aktív témák
- Semmibe veszi a KRESZ-t a Tesla Mad Max módja
- sziku69: Szólánc.
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- Debrecen és környéke adok-veszek-beszélgetek
- Sweet.tv - internetes TV
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Formula-1
- Poco F7 – bajnokesélyes
- Projektor topic
- További aktív témák...
- HIBÁTLAN iPhone 15 Pro Max 256GB White Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3661, 100% Akkum
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- Samsung Galaxy A33 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! Lenovo ThinkPad X13 Gen 5 üzleti notebook - Ultra 5 135U 16GB DDR5 512GB SSD Intel Win11
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest