-
GAMEPOD.hu
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
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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.
[ Szerkesztve ]
-
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.[ Szerkesztve ]
-
-
-
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
Spóroljunk! Kerül, amibe kerül!