- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Milyen okostelefont vegyek?
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Telekom mobilszolgáltatások
- Sony Xperia 1 VII - Látod-e, esteledik
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Honor Magic5 Pro - kamerák bűvöletében
- Sony Xperia 1 VI - egyből hat
- Netfone
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
-
-
spe88
senior tag
Hello!
Ez tutira működik? Mit rontok el?
az AG oszlopban lévő OK-okra kell rászűrni és az összes ilyen sort törölni!
Sub SP_Delete()
'
' SP_Delete Makró
'
'
With Main_BOM
.AutoFilterMode = False
.Range("ag1:ag1").AutoFilter 'Filter bekapcsolása
.Range("ag1:ag1").AutoFilter Field:=1, Criteria1:="OK" 'Kritérium megadása
.Range("A2:bb1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Kritériumnak eleget tevő cellák törlése
Cells.AutoFilter 'Filter törlése
Range("A1").Select 'Alap kiindulópont beállítása
Application.CutCopyMode = False 'Kijelölés megszüntetése
MsgBox ("Ok")
End With
End SubKöszönöm
-
-
blountex
senior tag
Köszi.
Fferi50
Köszi, de bocsánatot kérek egy kicsit elírtam, pontosítok és megpróbálom másképp leírni.
Ha a 38. sorban összeadjuk a számokat akkor kijön egy fix szám: 1053 (ez van a maradó szám helyén)
Az 1053at kell úgy lebontani hogy 0 legyen.
Ha a sorban 25x kiírom a 40-t majd utána a 32-t és végül a 21-et akkor megkapom az 1053at.
Csak hogy fölösleges 25x kiíratni a 40et ha mindig ugyan az a szám, ezért ha csak 1x veszem a 40et a 32-t a 21-et akkor jön ki a maradó számnál a 960 holott itt jó lenne ha 0 szerepelne.
Jelenleg a maradó szám helyen ilyen képlet van:
=HA(I4="";"";K4-SZUM(I38 : R38))
A k4es cellában van a fix szám 1053, amiből kivonja az általa megadott 40,32,21 értéket és így jön ki a 960.
Ő azt nem tudja hogy én mondjuk a 40es számot megszeretném még szorozni 24x=960 hogy megkapjam a 0-át. -
DeFranco
nagyúr
nem jó, mert
1) a képletnek csak egy darabját kell cserélnie (a képlet többi része sem egységes)
2) ki kell olvasnia hogy mi van az indirekt hivatkozás részében (a példában BJ$1, de hivatkozhat más cellára is) és azt kell behelyettesítenie, ez változhatigazából az a bajom, hogy betettem egy kimutatást a táblába, 3 szeletelővel, és egyszer csak bazi lassú lett az egész.
-
Delila_1
veterán
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row, 4) = Cells(Target.Row, 4) & Chr(10)
Cells(Target.Row, 5) = Cells(Target.Row, 5) & Chr(10)
Cells(Target.Row, 10) = Cells(Target.Row, 10) & Chr(10)
End SubHa a "rállás" helyett bevitelre szeretnéd a sortörést a meghatározott cellákba, a címből töröld a Selection részt.
Új hozzászólás Aktív témák
Fferi50- Windows 11
- Mr.Csizmás: Bestbuy travel, utazós, kirándulós topic - szállások, jegyek
- GL.iNet Flint 2 (GL-MT6000) router
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Diablo IV
- sziku69: Fűzzük össze a szavakat :)
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Rövid videón az új Virtua Fighter játék
- Jön az Ashes of the Singularity 2
- leslieke: leslieke farmerzsebe
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- 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!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- GYÖNYÖRŰ iPhone SE 2020 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2896, 100% Akkumulátor
- Huawei 4G CPE Pro3 4G Router
- Akció! Apple MacBook Pro 16 M4 Pro - M4 Pro 24GB 512GB SSD garanciával hibátlan működéssel
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Dell Precision 5540 i7-9850H 16GB 256GB 15.6" FHD Nvidia Quadro T1000 15.6" FHD 1 év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest