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

• #44342 Pikkolo^^ addikt Pikkolo^^ #44341

  Új Válasz 2020-06-23 22:33:45 #44342

  Ú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

  

  Pikkolo^^

  addikt

  válasz Pikkolo^^ #44341 üzenetére

  VKERES-sel sikerült megoldanom.

• #43170 Fferi50 Topikgazda Pikkolo^^ #43169

  Új Válasz 2020-03-02 23:06:13 #43170

  Ú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 Pikkolo^^ #43169 üzenetére

  Szia!
  =Bal(A1;Szöveg.keres("/";A1)-1)
  Üdv.

• #40840 Delila_1 veterán Pikkolo^^ #40839

  Új Válasz 2019-04-18 07:18:25 #40840

  Ú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 Pikkolo^^ #40839 üzenetére

  Rögzíted makróban az oszlop másolását, majd az ismétlődések eltávolítását.

• #40838 Fferi50 Topikgazda Pikkolo^^ #40837

  Új Válasz 2019-04-17 23:30:23 #40838

  Ú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 Pikkolo^^ #40837 üzenetére

  Szia!

  Átmásolod a termékeket tartalmazó oszlopot az új helyre. Kijelölöd ott, majd - Adatok - ismétlődések eltávolítása. És kész az egész.

  Üdv.

• #40754 Delila_1 veterán Pikkolo^^ #40753

  Új Válasz 2019-04-14 07:10:02 #40754

  Ú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 Pikkolo^^ #40753 üzenetére

  Szívesen.

• #40750 Fferi50 Topikgazda Pikkolo^^ #40746

  Új Válasz 2019-04-13 12:11:07 #40750

  Ú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 Pikkolo^^ #40746 üzenetére

  Szia!

  Vagy SZUMHA függvény.

  Üdv.

• #40748 Delila_1 veterán Pikkolo^^ #40746

  Új Válasz 2019-04-13 12:05:59 #40748

  Ú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 Pikkolo^^ #40746 üzenetére

  Az első sor legyen címsor. Beszúrás, kimutatás.

• #40747 Delila_1 veterán Pikkolo^^ #40695

  Új Válasz 2019-04-13 12:04:37 #40747

  Ú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 Pikkolo^^ #40695 üzenetére

  Pár napig nem voltam net közelében. Itt az átalakított makrós füzet. Az első lap K oszlopát bővítheted.

• #40690 Delila_1 veterán Pikkolo^^ #40678

  Új Válasz 2019-04-10 14:51:14 #40690

  Ú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 Pikkolo^^ #40678 üzenetére

  Átírtam.

• #40671 Delila_1 veterán Pikkolo^^ #40670

  Új Válasz 2019-04-06 07:19:06 #40671

  Ú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 Pikkolo^^ #40670 üzenetére

  Feltettem egy makróbarát füzetet.

  Az első lapon gombnyomásra indul a makró, ami a Folyamatban és a Lezárt lapokra kigyűjti a többi lapról az adatokat.

• #40670 Pikkolo^^ addikt Pikkolo^^ #40669

  Új Válasz 2019-04-05 22:59:30 #40670

  Ú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

  

  Pikkolo^^

  addikt

  válasz Pikkolo^^ #40669 üzenetére

  Elkezdtem csinálni és az előszőr kigyűjtöm egy lapra státus alapján mely érték kiválasztható, ez sima ügy. Most azonban a kigyűjtés nem működik. Néhol felcseréli az adaokat. vagy éppen ki sem írja. Aki ismeri ezt a függvényt az kérem nézzen rá, [link]

• #38688 Fferi50 Topikgazda Pikkolo^^ #38687

  Új Válasz 2018-07-24 23:38:23 #38688

  Ú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 Pikkolo^^ #38687 üzenetére

  Szia!

  A Darabteli erre nem jó, mert csak cella szinten nézi az értéket, a cellán belüli többszörös előfordulást nem.
  A következő lehet az egyik megoldás:
  =HOSSZ($J3)-HOSSZ(HELYETTE($J3;"F";""))

  Üdv.

• #38103 Delila_1 veterán Pikkolo^^ #38102

  Új Válasz 2018-05-25 15:14:29 #38103

  Ú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 Pikkolo^^ #38102 üzenetére

  Örülök neki, szívesen.

• #38101 Delila_1 veterán Pikkolo^^ #38100

  Új Válasz 2018-05-25 14:46:34 #38101

  Ú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 Pikkolo^^ #38100 üzenetére

  A Ctrl+g behozza az Ugrás menüt. Itt Irányított, majd Objektumok, OK. Kijelöli az összes objektumot, a Delete billentyűvel egyszerre törölheted az összeset.

• #37883 Pakliman tag Pikkolo^^ #37882

  Új Válasz 2018-04-20 13:13:54 #37883

  Ú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

  

  Pakliman

  tag

  válasz Pikkolo^^ #37882 üzenetére

  Feltételezzük, hogy az A1 cellába fogsz írni...
  ...a másik cellába ez kell =40-A1

• #36618 Pikkolo^^ addikt Pikkolo^^ #36615

  Új Válasz 2017-11-22 21:43:23 #36618

  Ú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

  

  Pikkolo^^

  addikt

  válasz Pikkolo^^ #36615 üzenetére

  Megvan, szöveg.keres a függvény amire szükségem van ehhez.

• #35122 Delila_1 veterán Pikkolo^^ #35119

  Új Válasz 2017-05-08 06:14:42 #35122

  Ú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 Pikkolo^^ #35119 üzenetére

  On Error Resume Next
Set a = Sheets(sheetnev)
If Err.Number <> 0 Then
MsgBox "Nincs ilyen"
Else
MsgBox "Van ilyen"
End If
On Error Goto 0

• #35120 föccer nagyúr Pikkolo^^ #35119

  Új Válasz 2017-05-07 21:37:47 #35120

  Ú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

  

  föccer

  nagyúr

  válasz Pikkolo^^ #35119 üzenetére

  HAHIBA függvényben hivatkozz rá. Elég fapados, de működik.

  üdv, föccer

• #35092 Delila_1 veterán Pikkolo^^ #35091

  Új Válasz 2017-05-03 11:34:06 #35092

  Ú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 Pikkolo^^ #35091 üzenetére

  Szívesen.

• #35090 Delila_1 veterán Pikkolo^^ #35089

  Új Válasz 2017-05-03 10:33:40 #35090

  Ú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 Pikkolo^^ #35089 üzenetére

  =HOSSZ(A1)-HOSSZ(HELYETTE(A1;"C";""))

  Ez a képlet megadja, hány "C" van az A1 cellában.

  Szerk.:
  A "C" helyett írhatsz cellahivatkozást is.

• #34854 Pikkolo^^ addikt Pikkolo^^ #34853

  Új Válasz 2017-04-06 21:35:10 #34854

  Ú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

  

  Pikkolo^^

  addikt

  válasz Pikkolo^^ #34853 üzenetére

  Megvan CTRL+SHIFT+ENTER-rel kell bevinni. Tökéletesen működik, köszönöm.

• #34851 sztanozs veterán Pikkolo^^ #34846

  Új Válasz 2017-04-06 19:14:41 #34851

  Ú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

  

  sztanozs

  veterán

  válasz Pikkolo^^ #34846 üzenetére

  Kifutottam a szerkesztésből - bonyolultabb (segédoszlopos) megoldás:
  
  1) Sárga terület TEXT formtumra konvertálása, utána szabadon tölthető (sajnos a lenti formula nem kezeli jól a szám és dátum formátumoú adatokat). B1 kötelezően üres marad.

  2) Zöld első mezőbe (B2) a következő Array formula kell (CTRL+ENTER - rel kell bevinni):
  =IFERROR(INDEX($A$2:$A$11,MATCH(0,COUNTIF($A$2:$A$11,"<"&$A$2:$A$11)-SUM(COUNTIF($B$1:B1,$A$2:$A$11)),0)),"")

  3) Első zöld mezőt lehúzni a sárga aljáig

  4) A következő Named Range felvétele (itt pl. Validation névvel):
  
  =OFFSET(Sheet1!$B$2,0,0,COUNTIF(Sheet1!$B$2:$B$11,">'"),1)

  5) Validáláshoz a fenti Named Range behivatkozása:
  

• #34850 sztanozs veterán Pikkolo^^ #34846

  Új Válasz 2017-04-06 18:41:53 #34850

  Ú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

  

  sztanozs

  veterán

  válasz Pikkolo^^ #34846 üzenetére

  Sorok között vannak üres cellák, vagy csak az elején és/vagy végén?
  HA csak az elején, végén van, akkor könnyen megoldható egy NamedRange-vel, ha közte is van, akkor viszont kell (legalább) egy segédoszlop is.

• #34848 lappy őstag Pikkolo^^ #34846

  Új Válasz 2017-04-06 18:25:37 #34848

  Ú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

  

  lappy

  őstag

  válasz Pikkolo^^ #34846 üzenetére

  Amennyiben csak felsorolod akkor dinamikus legyen a lista. Google keress rá.

• #32919 Delila_1 veterán Pikkolo^^ #32918

  Új Válasz 2016-10-10 10:10:47 #32919

  Ú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 Pikkolo^^ #32918 üzenetére

  Megnéztem, mindkét lapon emelkedő sorrendben vannak az adatok a feltöltött fájlban.

  Ha a saját fájlodra vonatkozik az össze-vissza, akkor 1 kattintással rendezheted.

• #32900 Delila_1 veterán Pikkolo^^ #32897

  Új Válasz 2016-10-08 07:40:31 #32900

  Ú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 Pikkolo^^ #32897 üzenetére

  Megpróbálom újra feltenni, bár megtaláltad a megoldást.

• #32898 Pikkolo^^ addikt Pikkolo^^ #32897

  Új Válasz 2016-10-07 21:50:12 #32898

  Ú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

  

  Pikkolo^^

  addikt

  válasz Pikkolo^^ #32897 üzenetére

  Megoldás

• #32896 Delila_1 veterán Pikkolo^^ #32895

  Új Válasz 2016-10-07 16:34:37 #32896

  Ú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 Pikkolo^^ #32895 üzenetére

  Most unta meg, hogy rendszeresen túlléptétek a határt.

  Nézd meg a linket, biztosan segít.

• #32894 Delila_1 veterán Pikkolo^^ #32893

  Új Válasz 2016-10-07 16:18:04 #32894

  Ú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 Pikkolo^^ #32893 üzenetére

  Előfordulhat, hogy túl sok adat van a szűrendő oszlopban.
  Nem tudom, a magasabb verziókban hány sor a határ, a 2003-as verzióban 1000 sorig volt biztonságos a szűrés. Az alatta lévő sorokat megmutatta szűrés nélkül.

• #32164 Fferi50 Topikgazda Pikkolo^^ #32160

  Új Válasz 2016-07-23 21:53:53 #32164

  Ú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 Pikkolo^^ #32160 üzenetére

  Szia!

  Igen, meg kell nyitnod hozzá a Word alkalmazást az Excel makróban, abba kreálni egy új dokumentumot és az Excel tartalmat belemásolod.

  Sub wordos()
Dim wrd As Object, wd As Document
Set wrd = CreateObject("word.application") 'Word nyit
wrd.Visible = True
Set wd = wrd.documents.Add 'új dokumentumot nyit
ActiveSheet.UsedRange.Copy 'kijelölöd a másolandó területet (pl. Range("A1:F25")
wrd.Selection.Paste 'ha képként szeretnéd beilleszteni, akkor PasteSpecial, paraméterekkel HELP segít
wrd.Activate
wd.Save 'itt meg kell adnod, hogy milyen néven mented
wrd.Quit ' Word bezár
End Sub

  Figyelem! A makró futtatása előtt a VBA ablak Tools Menüjében a References menüpontban be kell jelölnöd a megfelelő Microsoft Word könyvtárat!!! (pl. 2016-os nál Microsoft Word 16.0 Object Library).

  Üdv.

• #32154 bsasa1 csendes tag Pikkolo^^ #32153

  Új Válasz 2016-07-22 12:44:24 #32154

  Ú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

  

  bsasa1

  csendes tag

  válasz Pikkolo^^ #32153 üzenetére

  Szia,

  megoldható makró nélkül is, a tömbképlet (Ctrl+Shift+Enterrel kell beütni) kb így néz ki:
  =HAHIBA(INDEX($A$1:$A$20;KICSI(HA(($B$1:$B$20)<>E$1;"";SOR($B$1:$B$20));$D2));"")
  Csak hozzá kell szabni a táblázathoz a hivatkozásokat és a sor függvény eredményét.

  üdv.

• #32151 Delila_1 veterán Pikkolo^^ #32149

  Új Válasz 2016-07-22 12:21:50 #32151

  Ú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 Pikkolo^^ #32149 üzenetére

  Nem látszanak a sor- és oszlopazonosítók a képen.

  Modulba tedd a makrót.

  Sub Kigyujtes()
Dim sor As Long, oszlop, ide As Long

sor = 3
Do While Cells(sor, "B") <> ""
oszlop = Application.Match(Cells(sor, "C"), Rows(2), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Format(Cells(sor, "C"), "yyyy.mm.dd") & " dátum a 2. sorban"
Else
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Cells(ide, oszlop) = Cells(sor, "B")
End If
sor = sor + 1
Loop
End Sub

  Nézd meg a képen, hogy a keresendő dátumokat tartalmazó sor feljebb van, mint a C oszlop első dátuma, ez fontos.

  

• #32148 Delila_1 veterán Pikkolo^^ #32147

  Új Válasz 2016-07-22 10:53:32 #32148

  Ú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 Pikkolo^^ #32147 üzenetére

  FKERES(egyik_oszlop) & " " & FKERES(másik_oszlop) & " " & FKERES(harmadik_oszlop)

  A dátumoshoz SZÖVEG(FKERES(dátumos_oszlop) ; "éééé.hh.nn")

• #23008 Fferi50 Topikgazda Pikkolo^^ #23007

  Új Válasz 2014-08-26 22:10:53 #23008

  Ú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 Pikkolo^^ #23007 üzenetére

  Szia!

  Mivel szeretnél keresni és mit?
  A keresésnek (Ctrl+F) van olyan opciója, hogy az értékekben keres.
  Makróban is a range.find -nek megadhatod a lookin paraméterrel, hogy értékben vagy képletben keressen.

  Üdv.

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