- Egy kis depi (szösszenet inkább), remélem elfér itt :) 3#
- Pulsar X2 V3 Size 2 Gamer Egér és Pulsar 8K Wireless Dongle
- Út Korea turistaparadicsomába, amiről talán még sosem hallottál: Csedzsu-sziget
- Perplexity Pro AI képszerkesztési limit -egy képgenerátor függő tapasztalatai
- Adattár lemez előkészítése Windows telepítéshez
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- sellerbuyer: Hogyan turbózd fel a NAS-od sebességét olcsón és egyszerűen?
- sh4d0w: Én és a számítógép
- Parci: Milyen mosógépet vegyek?
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Szólánc.
-
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
plaschil
#23757
üzenetére
Függvénnyel nem, de egy rövid kis makróval megoldható.
Sub Hiba()
Dim ter As Range, CV As Range, usor As Long
Sheets("A").Activate
usor = Cells(1).End(xlDown).Row
Set ter = Range("A1:A" & usor)
For Each CV In ter
If CV.Interior.Color = vbRed Then Sheets("B").Cells(CV.Row, "X") = "Hiba"
Next
End SubA Sheets("A").Activate, és az
If CV.Interior.Color = vbRed Then Sheets("B").Cells(CV.Row, "X") = "Hiba"
sorokban írd be az "A" és "B" helyére a lapjaid igazi nevét, idézőjelek között. -
Delila_1
veterán
válasz
plaschil
#13390
üzenetére
Nem adtad meg, hogy az Excelnek melyik verzióját alkalmazod.
Ha 2007-et, vagy 2010-et, akkor a Szumhatöbb függvényt használd, ha alacsonyabb verziód van, akkor fel kell venned egy segédoszlopot.
A D1 cella legyen: =A1&" "&B1, ezt másold le az adataid mellé.
Az összegző oszlop 1. cellájába ezt írd: =SZUMHA(D:D;A1&" "&B1;C:C), és másold le. -
Delila_1
veterán
válasz
plaschil
#13220
üzenetére
A makró az N oszlopba kigyűjti az A oszlopban lévő szövegeket, és mindegyik mellé beírja csökkenő sorrendben a hozzá tartozó top5-öt az O:S oszlopba.
Ha 100-nál több féle adatod lehet az A oszlopban, a makróban jelzett sorban írhatod át.Sub Top5()
Dim sor As Long, sor1 As Long
Dim usor As Long, usor1, cim, ertek
Dim T(100, 5) '***** Itt írd át a 100-at *****
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
usor = ActiveSheet.UsedRange.Rows.Count
Columns("A:A").Select
Range("A1:A" & usor).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"N1"), Unique:=True
usor1 = Range("N1").End(xlDown).Row
For sor1 = 2 To usor1
cim = Cells(sor1, 14)
For sor = 2 To usor
ertek = Cells(sor, 2)
If Cells(sor, 1) = cim Then
If ertek > T(sor1 - 1, 1) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 3) = T(sor1 - 1, 2)
T(sor1 - 1, 2) = T(sor1 - 1, 1)
T(sor1 - 1, 1) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 2) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 3) = T(sor1 - 1, 2)
T(sor1 - 1, 2) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 3) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 3) = T(sor1 - 1, 2)
T(sor1 - 1, 3) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 4) Then
T(sor1 - 1, 5) = T(sor1 - 1, 4)
T(sor1 - 1, 4) = T(sor1 - 1, 3)
T(sor1 - 1, 4) = ertek
GoTo Köv
End If
If ertek > T(sor1 - 1, 5) Then T(sor1 - 1, 5) = ertek
End If
Köv:
Next
Range("O" & sor1) = T(sor1 - 1, 1)
Range("P" & sor1) = T(sor1 - 1, 2)
Range("Q" & sor1) = T(sor1 - 1, 3)
Range("R" & sor1) = T(sor1 - 1, 4)
Range("S" & sor1) = T(sor1 - 1, 5)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub -
-
Delila_1
veterán
válasz
plaschil
#12801
üzenetére
Az első IF-en belül két újabb kritérium már eleve hamis ágra fut.
Az első feltétel vizsgálja az E oszlop i-edik értékét, és csak akkor jut el az igaz ágba, ha ez az érték 72. Te ebbe az igaz ágba teszel két újabb feltételt, ami azt vizsgálja, hogy ugyanez a cella 0.603-mal, vagy 0.615-tel kezdődik-e.
-
plaschil
aktív tag
válasz
plaschil
#12801
üzenetére
Javítás:
Nem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***oszlopot*** átteni egy másik fájl végére.
Hanem így:
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány ***cellát*** átteni egy másik fájl végére.
-
Delila_1
veterán
válasz
plaschil
#12796
üzenetére
For i = 1 To SorokSzama
If Cells(i, 5) = 72 Then
If Cells(i, 4) = "5415" Or "5415B" Then
If Left(Cells(i, 2), 2) = "ez" Or Left(Cells(i, 2), 2) = "az" Or _
Left(Cells(i, 2), 4) = "emez" Or Left(Cells(i, 2), 4) = "amaz" Then
'történjen valami
Else
'történjen valami más
End If
End If
End If
Next -
plaschil
aktív tag
válasz
plaschil
#12796
üzenetére
Úgy tűnik mintha nem lehetne megadni több feltételt egy if-ben. Érdekes. Na de ha így nem megy, akkor megírom minden feltételre egyesével az if-et azon nem múlik. Viszont akkor azzal az akadállyal kell megküzdenem, hogy meg kell vizsgálnom, hogy pl. "XXX"-el kezdődik-e egy adott cella tartalma.
-
-
plaschil
aktív tag
válasz
plaschil
#12791
üzenetére
No azt hiszem ezt megoldottam. További problémák merültek fel: fel szeretném vetetni makróval, hogy az egy oszlopban lévő 4 db szűrési feltételnek megfelelő sorok legyenek szűrve. Hogy egyszerűbb? Ha felvetetem, vagy ha megnézem hány soros a fájl és IF-el megcsinálom? Csak azért mert pl. 2 feltételnél még működik (makró rögzítésnél) de 4-nél már nem.
ActiveSheet.Range("$A$1:$FM$5909").AutoFilter Field:=2, Criteria1:= _
"=szoveg_1*", Operator:=xlOr, Criteria2:="=szoveg_2*", Operator:=xlOr, Criteria3:="=szoveg_3*", Operator:=xlOr, Criteria4:="=szoveg_4*", Operator:=xlOr
Ezzel a 4 feltétellel nem szűri le az adatokat. De ha csak 2-őt adok meg akkor igen.
Ötlet? -
poffsoft
veterán
válasz
plaschil
#12569
üzenetére
Ha azért véded, hogy véletlen ne törölj bele, akkor célszerű üres jelszóval levédeni a lapot. Ha mások szándékos törlése ellen véded, akkor persze kell jelszó. A jelszó birtokában bárki feloldhatja a lapvédelmet.
Ha bekapcsolod a lapvédelmet, csak azok a cellák lesznek módosíthatók, amikből a formátum/védelem-nél kivetted a pipát, alapból minden cella ki van pipálva, igen. A korrektúrás megoldást én nem ismerem. -
, vagyis a VBA azért megeszi, csak mást csinál, mint amit te akarsz.
Ötlet?
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Hagyományos és extrém roller, kickbike, Boardy topik
- Xiaomi 14T Pro - teljes a család?
- Szombathely és környéke adok-veszek-beszélgetek
- Óra topik
- Kínai és egyéb olcsó órák topikja
- BestBuy topik
- Borderlands 4
- Mazda topik
- Elektromos cigaretta 🔞
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Assassin's Creed Shadows Collector's Edition PC
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Dell 14 Latitude 9410 FHD IPS 2in1 Touch i7-10610U 4.9Ghz 16GB 512GB SSD Intel UHD W11 Pro Garancia
- DELL PowerEdge R630 rack szerver - 2xE5-2650v3 (20 mag / 40 szál, 2.3/3.0GHz), 32GB RAM, 55992Ft+ÁFA
- Szinte új (6 órás) Crucial 240GB SSD eladó
- HIBÁTLAN iPhone 14 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3528, 93% Akkumulátor
- Intel X540-T2 dual-port 10GbE RJ45 hálózati vezérlő (10Gbit, 2 port, áfás számla, garancia)
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest