- Samsung Galaxy S25 - végre van kicsi!
- MIUI / HyperOS topik
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Samsung Galaxy A56 - megbízható középszerűség
- Samsung Galaxy S23 Ultra - non plus ultra
- iPhone topik
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Telekom mobilszolgáltatások
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
Hirdetés
-
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
-
Attila7298
újonc
Sziasztok! Bocs de megint kellene egy kis segítség.
A "B" oszlopon kellene üres helyet keresni és az egész sort törölni.
Az a baj ha egymás után van két üres hely akkor az elsőt ki törli de a következő üres sort átugorja.Sub Sortorles()
sor = 1
For sor = 1 To 40
Cells(sor, 2).Select
If Selection.Value = "" Then
Selection.EntireRow.DeleteEnd If
Next
End SubKöszönöm a türelmeteket.
-
Attila7298
újonc
Sziasztok! tudnátok segíteni a megoldásban. Van egy munkalap arról szeretnék a 3,5, 7 oszlop szűrésével adatokat másolni egy másik munkalapra. A gond az hogy nem tudom megoldani hogy ha a keresés lefut az egy sorba tartozok ne külön sorba kerüljenek.
Sub masolasi()
Dim i, p, n, sor As Integer 'i-sor, n- sor a Munka2-nsor = Worksheets("Idöszakos").Cells(1, 1) 'utolsó sor
n = 4
t = Worksheets("Adat szürés").Cells(17, 6) 'kereset szám
Sheets("Idöszakos").ActivateFor i = 4 To sor
p = InStr(1, Cells(i, 3).Value, t, vbTextCompare)
p1 = InStr(1, Cells(i, 5).Value, t, vbTextCompare)
p2 = InStr(1, Cells(i, 7).Value, t, vbTextCompare)If p > 0 Then
Worksheets("Sz_adat").Cells(n, 7).Value = Cells(i, 2).Value
Worksheets("Sz_adat").Cells(n, 1).Value = Cells(i, 1).Value
Worksheets("Sz_adat").Cells(n, 8).Value = Cells(i, 1).Valuen = n + 1
End If
If p1 > 0 Then
Worksheets("Sz_adat").Cells(n, 9).Value = Cells(i, 4).Value
Worksheets("Sz_adat").Cells(n, 1).Value = Cells(i, 1).Value
Worksheets("Sz_adat").Cells(n, 10).Value = Cells(i, 1).Valuen = n + 1
End If
If p2 > 0 Then
Worksheets("Sz_adat").Cells(n, 11).Value = Cells(i, 6).Value
Worksheets("Sz_adat").Cells(n, 1).Value = Cells(i, 1).Value
Worksheets("Sz_adat").Cells(n, 12).Value = Cells(i, 1).Valuen = n + 1
End If
Next iEnd Sub
ez az eredmény
Előre köszi minden segítséget
Új hozzászólás Aktív témák
Hirdetés
- Milyen processzort vegyek?
- Milyen billentyűzetet vegyek?
- Xbox Series X|S
- nVidia GeForce GTX 1070 / 1070 Ti / 1080 (GP104)
- A lemondást javasolja az Intel vezetőjének Donald Trump
- Autós topik
- Battlefield 6
- Futás, futópályák
- Nem indul és mi a baja a gépemnek topik
- Kezdő fotósok digitális fényképei
- További aktív témák...
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- HP ZBook Studio 8 WorkStation i7-11850H 32GB 1000GB Nvidia Quadro T1200 15.6" FHD IPS 1 év garancia
- Dell Precision 5540 i7-9850H 16GB 256GB 15.6" FHD Nvidia Quadro T1000 15.6" FHD 1 év garancia
- Samsung Galaxy S23 Ultra / 8RAM 256GB / Gyárifüggetlen / 12 Hó Garancia
- Azonnali készpénzes nVidia RTX 4000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
Állásajánlatok
Cég: FOTC
Város: Budapest