Új hozzászólás Aktív témák

• #37309 Fferi50 Topikgazda edari #37308

  Új Válasz 2018-02-09 22:05:02 #37309

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz edari #37308 üzenetére

  Szia!

  Miért is kell ehhez makró?

  Nézd meg légy szíves az Adatok - csoportosítás , vagy a részösszeg menüpontot. Előtte pedig egy sorbarendezés.

  Lehet, hogy egy segédoszloppal segíteni kell esetleg, de ez sem biztos.

  Üdv.

• #37267 Guseppe tag edari #37230

  Új Válasz 2018-02-06 14:41:54 #37267

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Guseppe

  tag

  válasz edari #37230 üzenetére

  Csak most tudtam időt szakítani rá, köszönöm, így sikerült megoldanom.

• #37099 spe88 senior tag edari #36953

  Új Válasz 2018-01-22 13:09:09 #37099

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  spe88

  senior tag

  válasz edari #36953 üzenetére

  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 Sub

  Köszönöm

• #37042 spe88 senior tag edari #37039

  Új Válasz 2018-01-18 07:57:07 #37042

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  spe88

  senior tag

  válasz edari #37039 üzenetére

  Annyira nem egyszerű

  Szóval a makrónak azt kell tudnia, hogy rászűr az OK-okra és a kapott sorokban, vágólapra teszi a B oszlop elemeit!

  Tehát ebben a 12-19-ig tartó tartományt, a 23-at és a 25-öt rakná vágólapra.

• #36724 Fferi50 Topikgazda edari #36723

  Új Válasz 2017-12-09 11:43:34 #36724

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz edari #36723 üzenetére

  Szia!

  Ha számokat szeretnél szűrni, akkor számként kell megadni a szűrőfeltételt és nem szövegként. A "60*" szövegszűrő és nem számszűrő.
  Ha a 60 ezer, millió stb. számokat szeretnéd szűrni, akkor a >=60000 és <70000 szűrőt kell beállítanod.

  Üdv.

• #32780 poffsoft veterán edari #32748

  Új Válasz 2016-09-23 23:59:06 #32780

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz edari #32748 üzenetére

  Segédoszlop, ha fv?, esetleg szumha?

• #32492 blountex senior tag edari #32490

  Új Válasz 2016-08-29 18:24:15 #32492

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  blountex

  senior tag

  válasz edari #32490 üzenetére

  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.

• #32272 DeFranco nagyúr edari #32271

  Új Válasz 2016-08-08 15:50:46 #32272

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  DeFranco

  nagyúr

  válasz edari #32271 üzenetére

  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áltozhat

  igazá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.

• #32208 Aladaar tag edari #32207

  Új Válasz 2016-07-28 10:59:08 #32208

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Aladaar

  tag

  válasz edari #32207 üzenetére

  hol.van függvény

• #31736 DS39 nagyúr edari #31735

  Új Válasz 2016-06-07 10:37:19 #31736

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  DS39

  nagyúr

  válasz edari #31735 üzenetére

  köszönöm!

• #31677 Delila_1 veterán edari #31676

  Új Válasz 2016-05-31 12:35:59 #31677

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz edari #31676 üzenetére

  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 Sub

  Ha 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.

• #31675 JagdPanther aktív tag edari #31674

  Új Válasz 2016-05-31 12:05:48 #31675

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  JagdPanther

  aktív tag

  válasz edari #31674 üzenetére

  Köszi, ez meg van

  Viszont ez a "kézi" módszer kissé körülményes amikor mondjuk 50 sorban kell elvégezni, ezért szeretnék rá makrót írni

• #31662 Lajos.P csendes tag edari #31659

  Új Válasz 2016-05-30 17:13:59 #31662

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lajos.P

  csendes tag

  válasz edari #31659 üzenetére

  Több ember használ egy tábláztatott és adatokat visz fel az első oszlop a dátum.
  Az adatokat mindig külön sorba írják.
  Azt szeretném hogy a dátum a sor elején automatikusan megjelenjen.

• #31660 Lajos.P csendes tag edari #31659

  Új Válasz 2016-05-30 17:10:58 #31660

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lajos.P

  csendes tag

  válasz edari #31659 üzenetére

  Nekem nem az kell hanem hogy ne kelljen beírni a dátumot csak rákattintatni a cellára és beírja magától.

Új hozzászólás Aktív témák