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

• #17848 lapa veterán whatnot #17847

  Új Válasz 2013-04-19 15:24:08 #17848

  Ú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

  

  lapa

  veterán

  válasz whatnot #17847 üzenetére

  mindig az excel dátumértékével csinálj mindent. ha az a 41xxx már a bemenetkor rossz, akkor úgyse tudsz semmit csinálni vele. ha bemenetkor még jó dátum a 41xxx-ben, akkor a datepart is jó lesz.

• #17844 lapa veterán whatnot #17843

  Új Válasz 2013-04-19 12:33:06 #17844

  Ú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

  

  lapa

  veterán

  válasz whatnot #17843 üzenetére

  én inkább biztosra szoktam menni és összetákolom dateparttal. mittomén ilyesmi:

  datenow = DatePart("yyyy", Date) & Right("0" & DatePart("m", Date), 2) & Right("0" & DatePart("d", Date), 2) & Right("0" & DatePart("h", Time), 2) & Right("0" & DatePart("n", Time), 2)

  elég favágás, de ha meló van inkább befavágom ezt 5 mp alatt.

  más: volt régen egy olyan makró, amivel úgy tudtam emailezni a táblát, hogy nem jött a görcsi outlook figyelmeztető üzenet. megvan ez valakinek, vagy kezdjek turkálni? köszi.

  (ja, amúgy a gombicsek-csinálást nem felejti el a Citrix, szóval minden szuper.)

• #17455 atillaahun veterán whatnot #17452

  Új Válasz 2013-03-28 16:23:58 #17455

  Ú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

  

  atillaahun

  veterán

  válasz whatnot #17452 üzenetére

  Ilyen 1-2 százezer soros tábláknál nekem is nagyon haldoklott már a gép, az segít valamit ha kikapcsolod a Képlet-ek között az automatikus újraszámolást, és csak kézzel nyomogatod neki F9-el, amikor éppen szükséges, mert magától minden kattintás után elkezd gondolkozni valamin.

• #17434 oxox addikt whatnot #17433

  Új Válasz 2013-03-27 13:11:35 #17434

  Ú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

  

  oxox

  addikt

  válasz whatnot #17433 üzenetére

  tehat van egy tablazatom.
  a1,b1
  a2,b2

  es ha a1-ben nyomok egy tabot akkor ugye b1-re ugrik, ha nyomok megegy tabot akkor c1-re.
  nahh nekem az kene, hogy a2-re ugorjon, tehat a kovetkezo sor elejere.

  

• #17354 akyyy senior tag whatnot #17353

  Új Válasz 2013-03-19 22:42:30 #17354

  Ú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

  

  akyyy

  senior tag

  válasz whatnot #17353 üzenetére

  igen, ez az. köszi

• #17348 baderoli tag whatnot #17346

  Új Válasz 2013-03-19 20:58:42 #17348

  Ú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

  

  baderoli

  tag

  válasz whatnot #17346 üzenetére

  Köszi! Neked is Mutt!

  Nem foglalkoztam még vele. Miért?

• #17344 Mutt senior tag whatnot #17332

  Új Válasz 2013-03-19 20:40:33 #17344

  Ú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

  

  Mutt

  senior tag

  válasz whatnot #17332 üzenetére

  Hali,

  Hülyeséget inkább nem mondok, de a megoldás ami nekem műkődni szokott, hogy Cells().Address-t használok.

  Ezt próbáld ki:
  Workbooks("Másik_workbook.xls").Sheets("Sheet1").Range(Cells(1, 1).Address, Cells(5, 1).Address).Copy

  üdv.

• #17336 Mutt senior tag whatnot #17321

  Új Válasz 2013-03-19 19:57:15 #17336

  Ú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

  

  Mutt

  senior tag

  válasz whatnot #17321 üzenetére

  Hello,

  ... Format(Date-1, "yyyy/mm/dd") ...

  A / jel mindig a területi beállításoknál használandó dátum elválasztót jelenti. Magyar Windows esetén a dátum elválasztó alapból a pont, ezért kapod a '2013.03.18'-at.
  A megoldás, hogy használod a \ jelet a / előtt, amely az utána lévő karaktert értelmezés nélkül megjeleníti.

  Format(Date-1, "yyyy\/mm\/dd")

  üdv.

• #17333 baderoli tag whatnot #17331

  Új Válasz 2013-03-19 18:05:45 #17333

  Ú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

  

  baderoli

  tag

  válasz whatnot #17331 üzenetére

  Köszönöm, használni fogom, mert most nekem kell másolnom, de be szeretnék illeszteni egy gomobot és hozzá a makrót. Köszi!

• #17323 whatnot őstag whatnot #17321

  Új Válasz 2013-03-19 15:28:10 #17323

  Ú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

  

  whatnot

  őstag

  válasz whatnot #17321 üzenetére

  Csak ha más is kíváncsi a megoldásra.

  Yesterday = Left(Replace(Date-1, ".", "/"), 10)

• #17318 lappy őstag whatnot #17317

  Új Válasz 2013-03-19 11:11:29 #17318

  Ú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 whatnot #17317 üzenetére

  Ahogy leírtad úgy szeretné!

• #17263 motinka tag whatnot #17262

  Új Válasz 2013-03-14 22:53:21 #17263

  Ú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

  

  motinka

  tag

  válasz whatnot #17262 üzenetére

  köszönöm a segítségeteket. de megoldom egy nem túl elegáns megoldással, a vasárnapoknál beteszek egy -1 et a függvénybe és akkor annyit mutat mint az előző 6 napé. így ha rákeres az adott hétre akkor azt is ahhoz számolja.
  Lehet hogy ezt a hét első napja beállítást, egy másik programból emlékszem?
  Ettől függetlenül elég érdekes hogy annyi mindent be lehet állítani az excelnek alapba, pont ezt nem?

• #17252 szoke12 őstag whatnot #17250

  Új Válasz 2013-03-14 15:31:03 #17252

  Ú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

  

  szoke12

  őstag

  válasz whatnot #17250 üzenetére

  hogy lehetek ilyen szerencsétlen?...
  mindig azt hiszem, hogy valami ultrahiperszuperbonyolult a megoldás...

  köszi működik

• #17239 Delila_1 veterán whatnot #17238

  Új Válasz 2013-03-13 16:29:18 #17239

  Ú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 whatnot #17238 üzenetére

  Használd a rongyos régit

• #17236 Delila_1 veterán whatnot #17235

  Új Válasz 2013-03-13 16:15:58 #17236

  Ú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 whatnot #17235 üzenetére

  Megnézem 2010-ben.

  Ebben is a 2. betöltés után meghal az érvényesítés.
  Nem hiába úútálom a 2003-asnál magasabb verziókat.

• #17233 Delila_1 veterán whatnot #17232

  Új Válasz 2013-03-13 16:02:42 #17233

  Ú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 whatnot #17232 üzenetére

  Add meg privátban a címet, elküldöm.

• #17231 Delila_1 veterán whatnot #17230

  Új Válasz 2013-03-13 15:57:05 #17231

  Ú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 whatnot #17230 üzenetére

  Nálam kb. 10 próbáig működött.

  Szerk.: most meg a 20. változtatás után sincs semmi baja, kiválóan működik.

• #17229 Delila_1 veterán whatnot #17227

  Új Válasz 2013-03-13 15:49:46 #17229

  Ú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 whatnot #17227 üzenetére

  Új lapra tedd, hogy első legyen az érvényesítés nyila.

• #17228 Delila_1 veterán whatnot #17227

  Új Válasz 2013-03-13 15:49:04 #17228

  Ú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 whatnot #17227 üzenetére

  Eddig én sem tudtam, most próbáltam ki. Igazából nem az érvényesítés, hanem annak a látható jele, a nyíl a kép. Úgy látszik, ezt veszi első számú képnek – mivel ezt viszed be elsőként a lapra. A For Each ciklussal az összes képet töröltetted, közöttük az elsőt is.

  Több próbát tettem, többször betöltöttem az érvényesítéssel a kiválasztott képet, minden rendben volt, de épp az előző percben megint eltüntette a nyilat.

• #17226 Delila_1 veterán whatnot #17225

  Új Válasz 2013-03-13 15:17:38 #17226

  Ú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 whatnot #17225 üzenetére

  Képként kezeli az érvényesítést is, és törli, amint megváltozik a tartalma.

  Amit változtatnod kell:
  Dim ShapeDel As Integer
  
  For ShapeDel = 2 To ActiveSheet.Shapes.Count
  Shapes(ShapeDel).Delete
  Next

  Az első kép az érvényesítés, ezért indítom a ciklust 2-től.

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