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

• #35590 sztanozs veterán Juditta_56 #35589

  Új Válasz 2017-06-29 12:15:01 #35590

  Ú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 Juditta_56 #35589 üzenetére

  Az adott fájlban igen.

• #35542 DJ. Ru$y nagyúr Juditta_56 #35537

  Új Válasz 2017-06-25 19:50:53 #35542

  Ú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

  

  DJ. Ru$y

  nagyúr

  válasz Juditta_56 #35537 üzenetére

  Köszönöm! Holnap kipróbáljuk élesben, ha megkapjuk a serialokat.

• #35407 Delila_1 veterán Juditta_56 #35405

  Új Válasz 2017-06-06 10:16:34 #35407

  Ú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 Juditta_56 #35405 üzenetére

  Operation:=xlNone, SkipBlanks:=False, Transpose:=False

  Mikor ezeket elhagyod, az xlPasteValues elé sem kell kiírnod a Paste:= -t.

• #35406 Delila_1 veterán Juditta_56 #35405

  Új Válasz 2017-06-06 08:31:06 #35406

  Ú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 Juditta_56 #35405 üzenetére

  Eleinte én is így adtam meg, de egy másik fórumon felvilágosítottak.

• #35404 Delila_1 veterán Juditta_56 #35403

  Új Válasz 2017-06-06 08:08:19 #35404

  Ú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 Juditta_56 #35403 üzenetére

  A helyfoglalásnál minden változóhoz meg kell adnod a típust, másképp Variant lesz, ami több helyet foglal a memóriában.

  Dim EllSor As Integer, EllOszl As Integer, JelSor As Integer, HibaOszl As Integer

  Szerk.:
  Az eredeti specbeillesztésnél néhány olyan paraméter szerepelt, ami alapértelmezés, azokat elhagyhatjuk.

• #35399 poffsoft veterán Juditta_56 #35397

  Új Válasz 2017-06-05 16:27:58 #35399

  Ú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 Juditta_56 #35397 üzenetére

  A koordináta változóid fele variant, fele integer. Szándékos?
  Van "1" nevű munkalapod?
  Hol index-szel (sheet(1)), hol névvel (sheets(1)) hivatkozol rá. Szándékos?
  A range-n belül a cells biztos, hogy nem 0. oszlopra hivatkozik? (Osszoszl, Osszoszlmax nem nulla?)

• #35398 Delila_1 veterán Juditta_56 #35397

  Új Válasz 2017-06-05 15:37:34 #35398

  Ú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 Juditta_56 #35397 üzenetére

  A Range a hiba. Vedd ki, a hozzá tartozó zárójelekkel együtt.

  A Range utasítás szöveges értéket vár, pl. "A1". A Cells(sor, oszlop) viszont 2 számot ad, ezt nem veszi be a Range.

• #35396 Delila_1 veterán Juditta_56 #35395

  Új Válasz 2017-06-05 15:02:48 #35396

  Ú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 Juditta_56 #35395 üzenetére

  Próbáld így:

  Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues

• #35331 lenkei83 tag Juditta_56 #35330

  Új Válasz 2017-05-28 12:37:15 #35331

  Ú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

  

  lenkei83

  tag

  válasz Juditta_56 #35330 üzenetére

  Hello!

  Kérdőjelek helyére: FileFormat:=51

  Üdv.:
  P.

• #35129 kopogo tag Juditta_56 #35128

  Új Válasz 2017-05-08 22:26:27 #35129

  Ú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

  

  kopogo

  tag

  válasz Juditta_56 #35128 üzenetére

  Nagyon szépen köszönöm nektek

• #34834 RAiN91 őstag Juditta_56 #34833

  Új Válasz 2017-04-05 20:09:15 #34834

  Ú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

  

  RAiN91

  őstag

  válasz Juditta_56 #34833 üzenetére

  Köszi, király vagy!

  Nem értem hogy működik, "=" és a kérdőjel, de erre gondoltam.

• #34793 mdk01 addikt Juditta_56 #34792

  Új Válasz 2017-04-02 20:46:56 #34793

  Ú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

  

  mdk01

  addikt

  válasz Juditta_56 #34792 üzenetére

  A szándék a lényeg, ha meg sikerül az csak plusz.

• #34787 Delila_1 veterán Juditta_56 #34786

  Új Válasz 2017-04-02 18:06:53 #34787

  Ú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 Juditta_56 #34786 üzenetére

  Lehet, hogy a kötjel előtt is előfordul a "0,5", vagy az "1" érték.

• #34780 mdk01 addikt Juditta_56 #34777

  Új Válasz 2017-04-02 13:30:45 #34780

  Ú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

  

  mdk01

  addikt

  válasz Juditta_56 #34777 üzenetére

  Az a lényege, hogy az Összesített!U6 cellában keresse meg a kötőjelet, ha ez megvan akkor a kötőjeltől keresse meg (és itt jönne egy vagy függvényszerű valami) vagy a 0,5-öt vagy az 1-et. Ha ez megvan akkor ahol megtalálta onnan adja eredményül az első három karaktert(ami vagy a 0,5, vagy az 1).
  Ha ez a megtalált szám/szöveg egyenlő a 0,5-tel vagy az 1-gyel, akkor a cella értéke az Összesített!M6, de ha nem egyenlő akkor ne írjon be semmit.
  Ez a képlet működik jól, és sajnos így kell működnie hogy a mellette lévő cellában is működjenek a dolgok, egyszerűen csak ha egy adott szám/szöveg helyett választás elé állítom, hogy vagy ez, vagy az van a cellában akkor is működjön akkor úgy már nem működik.

  Tehát így működik:
  =HAHIBA(HA(KÖZÉP(Összesített!$U6;SZÖVEG.TALÁL("1";Összesített!U6;SZÖVEG.TALÁL("-";Összesített!U6));3)="1";Összesített!M6;"");"")

  De itt csak akkor működik, ha az 1-est találja meg, ha abba a cellábaa kötőjel után 0,5 van akkor már nem ír be semmit, de én azt szeretném, hogy ha 1-es vagy 0,5 van akkor is működjön.
  Jó lenne valami felsorakoztató függvény, hogy mely értékekre működjön.
  Köszönöm

• #34753 csferke senior tag Juditta_56 #34748

  Új Válasz 2017-03-31 17:31:06 #34753

  Ú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

  

  csferke

  senior tag

  válasz Juditta_56 #34748 üzenetére

  Tudom, bonyolult, de én így használom:
  Ez tényleg túl bonyolult.
  Akkor inkább másképpen oldom meg a mező kitöltését.

  Jó lett volna ha egybe tudom fűzni a két mezőt mert ez adta volna a kiírandó pdf file nevét.

• #34639 cigam titán Juditta_56 #34634

  Új Válasz 2017-03-25 10:33:04 #34639

  Ú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

  

  cigam

  titán

  válasz Juditta_56 #34634 üzenetére

  Ja ... Csak a tartalmat néztem,meg hogy hyperlink nem is néztem kinek szól.

  0P1
  Köszi a tippet! Ez hogy fut le, vagy hogyan teszem be egy cellába?

• #34633 cigam titán Juditta_56 #34632

  Új Válasz 2017-03-24 20:00:39 #34633

  Ú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

  

  cigam

  titán

  válasz Juditta_56 #34632 üzenetére

  Igen, ha a hiperhivatkozás függvénnyel hozod létre. De eddig csak CTRL+K-val tudtam előhozni a linket, és a megjelenő szöveget). Több ezer tételt nem írnék át cellánként.

• #34624 Fferi50 Topikgazda Juditta_56 #34618

  Új Válasz 2017-03-24 09:23:23 #34624

  Ú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 Juditta_56 #34618 üzenetére

  Szia!

  Ezt valószínűleg Redmond (se) tudja!

  Üdv.

• #34192 0P1 aktív tag Juditta_56 #34191

  Új Válasz 2017-02-15 09:28:32 #34192

  Ú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

  

  0P1

  aktív tag

  válasz Juditta_56 #34191 üzenetére

  Talán azért, mert ez csak Excel 2016 óta van, és abban is csak a 2016 májusi update óta
  Egyébként más hiánypótló, régóta várt függvények is bekerültek azzal az update-tel, úgy mint :

  TEXTJOIN (magyarul SZÖVEGÖSSZEFŰZÉS) - ezt már nagyon régóta vártuk, így már végre lehet megadni akár range-et inputként
  CONCAT (FŰZ) - hasonló az előzőhöz, csak kicsit limitáltabb tudással
  IFS (HAELSŐIGAZ) - IF több feltétellel, a magyarítása kicsit érthetetlen számomra
  SWITCH (ÁTVÁLT) - végre nem kell többszörös feltétel vizsgálat esetén (különböző kimenettel) egy halom IF függvényt egymásba ágyazni

• #34157 huan őstag Juditta_56 #34155

  Új Válasz 2017-02-13 18:42:02 #34157

  Ú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

  

  huan

  őstag

  válasz Juditta_56 #34155 üzenetére

  tenkjú!

• #33637 AkosAkos aktív tag Juditta_56 #33636

  Új Válasz 2017-01-11 15:54:36 #33637

  Ú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

  

  AkosAkos

  aktív tag

  válasz Juditta_56 #33636 üzenetére

  Kicsit elbambáztam, mert ezen az oldalon már jártam....köszi.

• #33373 Pulsar veterán Juditta_56 #33372

  Új Válasz 2016-12-08 12:10:54 #33373

  Ú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

  

  Pulsar

  veterán

  válasz Juditta_56 #33372 üzenetére

  Nem tudom, kiprobálom azt is, köszönöm
  Ami még eszembe jutott, hogy a másold szám egy keplet eredménye. Két random szám van osszebrakva vesszővel elválasztva. Az jutott eszembe, hogy a ket kapott számot össze fűzöm és osztom 100-al is ezt az eremenyt kapom, de mar lehet szamként.

• #33321 lappy őstag Juditta_56 #33320

  Új Válasz 2016-11-25 14:40:32 #33321

  Ú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 Juditta_56 #33320 üzenetére

  Nálam csak annyit kellett vele tenni hogy az "o"-t az A oszlban újra beírtam és működött

• #33234 Delila_1 veterán Juditta_56 #33233

  Új Válasz 2016-11-15 07:50:46 #33234

  Ú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 Juditta_56 #33233 üzenetére

  Egy kicsit egyszerűbben az L2 képlete::

  =HA(H2="IGEN";K2+B2;HA(H2="NEM";B2-K2;""))

  Mikor a H2-ben az IGEN, és a NEM szövegtől eltérő érték van, vagy üres a cella, a képlet eredménye üres string ("") lesz.

• #33206 Delila_1 veterán Juditta_56 #33205

  Új Válasz 2016-11-12 10:43:10 #33206

  Ú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 Juditta_56 #33205 üzenetére

  Pár link, ahol vagy megvan a könyv, vagy előjegyezhető.

  [link]
  [link]
  [link]
  [link]

• #33184 Smogus őstag Juditta_56 #33183

  Új Válasz 2016-11-10 20:37:09 #33184

  Ú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

  

  Smogus

  őstag

  válasz Juditta_56 #33183 üzenetére

  Köszönöm!
  Ez frankón működik

• #33129 Delila_1 veterán Juditta_56 #33128

  Új Válasz 2016-11-04 08:14:47 #33129

  Ú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 Juditta_56 #33128 üzenetére

  

• #33127 Delila_1 veterán Juditta_56 #33123

  Új Válasz 2016-11-04 07:08:53 #33127

  Ú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 Juditta_56 #33123 üzenetére

  A lenti makró a kijelölt tartományban végzi el a számok félkövérre állítását a szövegen belül. Ez a tartomány az eredeti, képlettel előállított szövegnek az értékként beillesztett területe legyen.

  Sub Felkover()
Dim CV As Range, b As Integer

For Each CV In Selection
For b = 1 To Len(CV)
If IsNumeric(Mid(CV, b, 1)) Then CV.Characters(b, 1).Font.Bold = True
Next
Next
End Sub

• #33121 fecske13 tag Juditta_56 #33110

  Új Válasz 2016-11-03 18:00:21 #33121

  Ú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

  

  fecske13

  tag

  válasz Juditta_56 #33110 üzenetére

  Elmentettem akkor azt a fájlt, most feltettem ide:
  Szovegek_formazasa_1_cellan_belul
  hátha még másnak is szüksége lehet rá.
  A köszönet Delila-t illeti.

• #33116 Delila_1 veterán Juditta_56 #33115

  Új Válasz 2016-11-03 07:00:55 #33116

  Ú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 Juditta_56 #33115 üzenetére

  Örülök, hogy sikerült, szívesen.

• #33111 Delila_1 veterán Juditta_56 #33110

  Új Válasz 2016-11-02 14:28:24 #33111

  Ú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 Juditta_56 #33110 üzenetére

  Szia Juditta!

  Azt a fájlt már nem tudtam előbányászni.

  Előtte írtam, hogy a képlet eredményeként látszó szöveget nem lehet részenként formázni, de irányítottan, értékként átmásolhatod valahova. Azt már akár karakterenként másképp formázhatod.

  Írtam egy makrót, amit a lapodhoz kell rendelned (lásd a Téma összefoglalót). A formázandó cellán állva egy duplaklikk kiemeli félkövérrel a benne szereplő számokat.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim b As Integer

For b = 1 To Len(Target)
If IsNumeric(Mid(Target, b, 1)) Then Target.Characters(b, 1).Font.Bold = True
Next
Cancel = True
End Sub

• #32124 Delila_1 veterán Juditta_56 #32123

  Új Válasz 2016-07-20 08:46:46 #32124

  Ú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 Juditta_56 #32123 üzenetére

  Örülök. hogy sikerült beüzemelned.

• #32121 lenkei83 tag Juditta_56 #32120

  Új Válasz 2016-07-19 20:11:03 #32121

  Ú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

  

  lenkei83

  tag

  válasz Juditta_56 #32120 üzenetére

  Feltöltöd a tábládat?

• #32109 bsasa1 csendes tag Juditta_56 #32100

  Új Válasz 2016-07-19 10:44:15 #32109

  Ú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 Juditta_56 #32100 üzenetére

  Bocsi, közben leesett, hogy igazából ez is egy makró, úgyhogy nem fogod tudni sima xlsx-be lementeni.

• #32106 bsasa1 csendes tag Juditta_56 #32100

  Új Válasz 2016-07-19 09:11:42 #32106

  Ú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 Juditta_56 #32100 üzenetére

  Szia,

  ha megfelel úgy, hogy egy tömbbe íratod ki a munkalapneveket, akkor egy megoldás pl:
  bármelyik szabad cellára: Képletek / Név megadása: ide beírsz egy nevet, alulra a hivatkozásba a képlet:
  =HELYETTE(MUNKAFÜZETET.VESZ(1);"["&MUNKAFÜZETET.VESZ(16)&"]";"")

  ezután kijelölsz egy vízszintes tartományt, amennyi lapod van (vagy többet), és beírod a nevet, amit megadtál és Ctrl+Shift+Enter egyszerre.

  De így csak tömbben sorban tudod megjeleníteni a neveket, innen még be kell őket hivatkozni abba a cellába ahová szeretnéd.

  Bár lehet a legújabb exceleken már nem működik a dolog.

• #32091 Delila_1 veterán Juditta_56 #32090

  Új Válasz 2016-07-18 07:32:15 #32091

  Ú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 Juditta_56 #32090 üzenetére

  Képlettel eléggé nehézkes, de egy rövid makró villámgyorsan beírja a neveket. A makrót modulba kell tenni, lásd a téma összefoglalót.

  Sub Lapnevek()
Dim oszlop As Integer, uoszlop As Integer

uoszlop = Sheets(1).Cells(200, Columns.Count).End(xlToLeft).Column

For oszlop = uoszlop To 3 Step -1
If Cells(200, oszlop) <> "" Then Cells(201, oszlop) = Sheets(Cells(200, oszlop)).Name
Next
End Sub

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