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

• Delila_1 veterán

  2010-01-12 16:53:56 #6000

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5998

  Igen, hiszen a generált fáljnak mindig ugyanaz a neve.

• Delila_1 veterán

  2010-01-12 16:52:38 #5999

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5997

  van egy file, amit egy makró megnyit (xls az is)

• ulrik19 tag

  2010-01-12 16:52:14 #5998

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5996

  Az activeworkbook azért nem biztos, hogy jó, mert a makró nem abban a file-ban fut, aminek a dátuma kell, és nem biztos, hogy a dátum lekérdezésekor éppen az az aktív. Persze lehet úgy alakítani a kódot, de akkor már egyszerűbb egy direkthivatkozás: workbooks("filenév.xls")

• ulrik19 tag

  2010-01-12 16:49:45 #5997

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5994

  Hú, nem tudom, jól értem-e amire gondoltál. De szerintem az alap excel file-hoz nem tud "hozzányúlni", mert egy totál független programból jönnek szerintem az adatok (adat exportálás excel formátumban menüpontszerűségből), vagyis nemhogy makrót, de még csak képletet, értéket (totál semmit) nem tud beszúrni.

  Az sem kizárt, hogy igazából egy html formátum jön ki xls kiterjesztéssel

  (egyébként a Date() és Now() mindig az adatkiolvasás időpontját és/vagy napját mutatná, nem a file létrejöttét. vagyis azt hiszem)

• Delila_1 veterán

  2010-01-12 16:49:17 #5996

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5995

  Workbooks("Állandó.xls").Sheets("Munka1").Range("A1") = ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value

• ulrik19 tag

  2010-01-12 16:45:54 #5995

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Pulsar üzenetére #5993

  ugyanezt használod:
  Workbooks("akármi.xls").BuiltinDocumentProperties("Creation date").Value

• Delila_1 veterán

  2010-01-12 16:30:55 #5994

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5993

  Sub dátum()
  Workbooks("Munkafüzet1").Sheets("Munka1").Range("A1") = Date
  End Sub

  A Munkafüzet1 helyett beírod az állandó füzeted nevét, ami a makrót tartalmazza, és átírod a Munka1 lap nevét, no meg az A1 cellát is a megfelelőre.
  Ha az idő is kell a dátumhoz, a Date helyére Now() kerüljön.

  Ui.: Mivel a keletkezési ideje kell, a Now() az igazi. Azt kell megoldani, hogy a másik füzet megnyitásakor hajtódjon végre.

• Pulsar veterán

  2010-01-12 16:21:31 #5993

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  Húúha.. kicsit félre értettétek a feladatot.
  Amit szeretnék, hogy van egy file, amit egy makró megnyit (xls az is). Ezt a file-t bizonyos indőnként egy szerver generálja. a neve mindig ugyanaz, felülíródik. amikor ebből a file-ból kiolvasom az adatokat (sima egyszerű kijelölés másolás) akkor kellene még ennek a file-nak az keletkezési ideje, egy cellába, abba a file-ba ahonnan a makrót futtatom
  remélem így értitek.

• Delila_1 veterán

  2010-01-12 11:58:02 #5992

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5990

  Hogy mind az első, mind az összes többi mentés korrekt legyen:

  Sub MentésElőzőnévÉsDátumNévvel()
  Dim FN, utvonal
  utvonal = "C:\"
  
  If Len(ActiveWorkbook.Name) > 15 Then
  FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 15)
  Else
  FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
  End If
  
  FN = FN & "_" & Date
  ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
  End Sub

  Ez a 2007-nél régebbi verziókra vonatkozik, 2007-nél a levonás 16, és 5, a 4 jegyű kiterjesztés miatt.

• Delila_1 veterán

  2010-01-12 11:52:34 #5991

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5990

  Ha az FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
  sorban a 4 helyett 15-öt vonunk le, akkor helyrerázódik az új mentés neve.

• ulrik19 tag

  2010-01-12 11:45:49 #5990

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5988

  húha, egyre inkább nem értem

  ha mindig az abszolút eredeti file-ból futtatja ezt a kódot, akkor mindig ugyanazon a file-néven fogja elmenteni (mert ugye a létrehozási dátum nem változik)

  ha mindig az újonnan létrejött file-ból futtatja, akkor meg egyre hosszabb filenév lesz, mert mindig hozzáfűzi a dátumot.

• Delila_1 veterán

  2010-01-12 11:44:17 #5989

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5987

  Erre az esetre

  Sub MentésElőzőnévÉsMaidátumNévvel()
  Dim FN, utvonal
  utvonal = "C:\"
  FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
  FN = FN & "_" & Date
  ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
  End Sub

  Bár ezzel az a baj, hogy az első ilyen mentés után a fájlnév tartalmazza a mentés dátumát, a következő mentésnél 2, majd 3, végül n db dátum lesz a névben. Hacsak az
  FN = Left(...) sorban le nem vonjuk minden alkalommal az előző dátumot is.

• Delila_1 veterán

  2010-01-12 11:41:33 #5988

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5978

  ... és hogy a füzet előző neve se maradjon ki:

  Sub MentésElőzőnévÉsDátumNévvel()
  Dim FN, utvonal
  utvonal = "C:\"
  FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
  FN = FN & "_" & Left(ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value, 11)
  ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
  End Sub

• ulrik19 tag

  2010-01-12 11:40:17 #5987

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5986

  Persze-persze, az világos. Az logika nem világos nekem, hogy mire fog menni az így kialakított filenevekkel. (mármint azért, mert ugye egy adott file neve annak a file-nak a létrehozási dátuma lesz, amiből létrehozták. Mert ha mindig az aktuális dátum idő lenne benne, azt még érteném )

• Delila_1 veterán

  2010-01-12 11:34:39 #5986

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5985

  Az időt nem lehet az eredeti formájában betenni a névbe a kettőspontok miatt.

• ulrik19 tag

  2010-01-12 11:32:41 #5985

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5984

  ja, erre szeretné használni? mármint, hogy a létrehozási dátum:idő néven mentse el?
  (de ilyenkor a file-név mindig az "előző file" létrehozási nevén futna, mármint amiben futtatták a makrót...)

• Delila_1 veterán

  2010-01-12 11:25:59 #5984

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5980

  Ez lefordítva

  Sub DátumNév()
  Dim FN, utvonal
  utvonal = "C:\"
  FN = Left(ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value, 11)
  ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
  End Sub

• VANESSZA1 őstag

  2010-01-12 11:25:58 #5983

  Új Válasz

  Ú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

  

  VANESSZA1

  őstag

  válasz ulrik19 üzenetére #5981

  Hálás köszönet !!!

• ulrik19 tag

  2010-01-12 11:24:55 #5982

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz ulrik19 üzenetére #5980

  és hogy teljes legyen a kép, ezeket lehet lekérni

  Title
  Subject
  Author
  Keywords
  Comments
  Template
  Last Author
  Revision Number
  Application Name
  Last Print Date
  Creation Date
  Last Save Time
  Total Editing Time
  Number of Pages
  Number of Words
  Number of Characters
  Security
  Category
  Format
  Manager
  Company
  Number of Bytes
  Number of Lines
  Number of Paragraphs
  Number of Slides
  Number of Notes
  Number of Hidden Slides
  Number of Multimedia Clips
  Hyperlink Base
  Number of Characters (with spaces)

  (word-del együtt elvileg)

• ulrik19 tag

  2010-01-12 11:16:34 #5981

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz VANESSZA1 üzenetére #5979

  Lehet: Beszúrás/objektum/Létrehozás fileból...
  ott kiválasztod a file-t, és azt is, hogy csatolja (ha módosítod a word doksit, akkor az excelben is a módosított fog mindig látszódni), vagy ágyazza be (ilyenkor a beillesztéskori állapot megmarad, hiába írod át a .doc-ot később)

• ulrik19 tag

  2010-01-12 11:13:05 #5980

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Pulsar üzenetére #5978

  a BuiltinDocumentProperties() többek között ezt is tartalmazza, méghozzá így:
  ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value

• VANESSZA1 őstag

  2010-01-12 11:06:57 #5979

  Új Válasz

  Ú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

  

  VANESSZA1

  őstag

  Az után érdeklődnék, hogy Excel fájl-ba be lehet-e illeszteni egy Word fájl-ban található adatot vagy magát az egész Word doksit?

• Pulsar veterán

  2010-01-12 10:46:32 #5978

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  Milyen szerények vagyrok, holott NAGY MESTEREK vagytok!

  Még egy kérdés:
  Segítettetek abban, hogy hogyan tudok a file nevére hivatkozni
  excel_filename = ThisWorkbook.Name

  Ugyanígy van mód a file create time-jára is hivatkozni?

• Delila_1 veterán

  2010-01-12 10:36:23 #5977

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5976

  Én is.

• ulrik19 tag

  2010-01-12 10:35:03 #5976

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5975

  Nem nagyon szoktam túlozni... Most se. Mindig, mindenre van válaszod. (vagy szinte mindenre) Én csak egy lelkes amatőr vagyok.

• Delila_1 veterán

  2010-01-12 10:30:45 #5975

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5974

  Semmi túlzás, sokkal jobb vagy nálam.

• ulrik19 tag

  2010-01-12 10:29:21 #5974

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5973

  ugyan, így is zseniális vagy...

• Delila_1 veterán

  2010-01-12 10:23:09 #5973

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5972

  Abszolút igazad van. Ilyen, mikor ész nélkül csak másolok.

• ulrik19 tag

  2010-01-12 10:20:25 #5972

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 üzenetére #5971

  Még egy kis szőrözés (bocsi érte)

  1) elegendő lenne így is:

  Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  
  If CheckBox1.Value Then
  masolas_adat
  End If
  
  reogitesreceiving
  reogitesvisual
  reogitesquicktest
  reogitesfct
  
  Application.ScreenUpdating = True
  End Sub

  2) de ha mégis szükséges az application.run, akkor nem muszáj zárójelet használni az argumentumnál, mert nincs visszatérési érték. (de ez már tényleg csak szőrszálhasogatás )

• Delila_1 veterán

  2010-01-12 09:53:42 #5971

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5968

  Még egy apróság:
  Ha tabulátorokkal tagolod a makrót, sokkal áttekinthetőbb lesz, az esetleges hibákat is könnyebb megtalálni benne. Érdemes megjegyzéseket beírni az egyes sorokhoz a későbbi módosítás megkönnyítéséhez. Valahogy így:

  Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  
  If CheckBox1.Value = True Then
  Application.Run ("masolas_adat")
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  Else
  'Application.Run ("masolas_adat") Nem kell, ha a CheckBox1 jelöletlen
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  End If
  
  Application.ScreenUpdating = True
  End Sub

• Delila_1 veterán

  2010-01-12 09:43:05 #5970

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5968

  Szívesen.

• Delila_1 veterán

  2010-01-12 09:35:47 #5969

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5967

  Az Application.ScreenUpdating=False sort még az If elé tenném (mert az nem függ a CheckBox állásától), az End Sub előtt pedig feltétlenül állítsd vissza True-ra. Másképp a makró futása után letiltva marad a képernyő frissítése, hacsak az utoljára futtatott makró nem a frissítés visszaállításával végződik. Mindenesetre elegánsabb, ha ott állítod vissza, ahol letiltottad.
  Az innen futtatott makrókban nem kell külön tiltani, ill. engedélyezni.

• Pulsar veterán

  2010-01-12 09:35:36 #5968

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5966

  működik, köszönöm!

• Pulsar veterán

  2010-01-12 09:26:07 #5967

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5966

  van nyomógombom

  Tát ha így jó lenne:

  Private Sub CommandButton1_Click()
  If CheckBox1.Value = True Then
  
  Application.ScreenUpdating = False
  Application.Run ("masolas_adat")
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  
  Else
  Application.ScreenUpdating = False
  ' Application.Run ("masolas_adat") <--- vagy kitörlöm ezt a sor, mind1, csak így látványosabb
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  End If
  End Sub

• Delila_1 veterán

  2010-01-12 08:29:17 #5966

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5965

  A CheckBox-ok segítségével kiválasztod, hogy mit akarsz tenni. Tegyél be egy gombot, és az hajtsa végre a feladatot a CheckBox-ok állásának megfelelően.
  A primitív példa a CommandButton1 lenyomására az A1-be beírja a CheckBox1 állapotát.
  A makrót a vezérlőket tartalmazó laphoz kell rendelni.

  Private Sub CommandButton1_Click()
  If CheckBox1.Value = True Then
  Cells(1) = "BE"
  Else
  Cells(1) = "KI"
  End If
  End Sub

• Pulsar veterán

  2010-01-11 17:58:09 #5965

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5964

  nem, szerintem nincs ott.
  csak simán beraktam

  Sub CheckBox5_Click()
  
  End Sub

• Delila_1 veterán

  2010-01-11 14:06:01 #5964

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5961

  Ha Userformon van a CheckBoxod:
  If Userform_neve.Controls("CheckBox_neve").Value=True Then
  '....
  Else
  '....
  End If

• Delila_1 veterán

  2010-01-11 13:38:35 #5963

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz szabi6k üzenetére #5962

  Az első helyezettet akár a MAX függvénnyel is kiírathatod, de a NAGY függvény is jó, ami a következő kettőt is megadja.
  =NAGY(tartomány;helyezés)
  A helyezés helyére írod azt a számot, ahányadik helyezettet le akarod kérdezni.

• Pulsar veterán

  2010-01-11 12:59:12 #5961

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  Sziasztok!

  Chek boxot szeretnék alkalmazni, csak nem tudom, hogy hogyan.
  A következőt szeretném megoldai:

  Van egy csomó hivatkozásom:

  Sub futtat()
  
  Application.ScreenUpdating = False
  
  Application.Run ("masolas_adat")
  
  
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")

  Azt szeretném, hogyha a check box be van jelölve, akkor ne történjen semmi, de ha nincs bepipálva, akkor a Application.Run ("masolas_adat") nélkül fusson le a cucc.
  Ilyen megoldható?

• Fire/SOUL/CD félisten

  2010-01-10 12:47:30 #5960

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Cuci3 üzenetére #5958

  Hali!

  [link] [link]

  Fire.

• Fire/SOUL/CD félisten

  2010-01-10 11:51:10 #5959

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Cuci3 üzenetére #5958

  Hali!

  [link]

  Fire.

• Cuci3 tag

  2010-01-10 10:10:46 #5958

  Új Válasz

  Ú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

  

  Cuci3

  tag

  Hello-bello!
  Tud valaki olyan honlapot, oldalt, ahonnan példákon keresztül jól el lehet sajátítani a VBA programozását? Olyan szájbarágósat, ami mondjuk nem a redimmel kezdi.
  Amúgy én is inkább könyvet mondanék, de haverom még 6 hónapig Japánban van, és ő sem tudja elolvasni azokat a kriksz-krakszokat.
  A honlap lehet magyar vagy angol. Köszi!

• Pulsar veterán

  2010-01-09 16:10:15 #5957

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 üzenetére #5956

  aha.. nem a vágólapot kapcsolja ki, és be? Mert én úgy kerestem a neten, és találtam erre
  de végül is remekül működik...

• Delila_1 veterán

  2010-01-09 14:33:06 #5956

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar üzenetére #5955

  Az Application.CutCopyMode = False a pillanatnyi kijelölést szünteti meg.

• Pulsar veterán

  2010-01-09 14:31:07 #5955

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Cuci3 üzenetére #5954

  Szia!
  Működik, köszönöm!

  Application.CutCopyMode = True 'Biztos kel ez a sor? Nekem tök felelslegesnek tűnik.

  Hát szerintem igen. Mert elötte kikapcsolom a vágólapot (így küszöbölöm ki a "nagy méretű adat van a vágólapon, biztos hogy bezárja a file-t" ablakot. Vissza meg azért kapcsolom, mert ha még egyszer futtatom akkor is lefusson... vagy ez hülyeség?

• Cuci3 tag

  2010-01-09 11:34:55 #5954

  Új Válasz

  Ú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

  

  Cuci3

  tag

  válasz Pulsar üzenetére #5953

  Annyi a gon, hogy nem a FullName-et kell használnod, csak a Name-et. FullName az elérési útvonalat is tartalmazza (c:\blblbla.xls), míg a Name csak a fájl nevét és kiterjesztését (blablabla.xls).
  Lentebb az átírt kód, kommentált kód. Bocs, de az elérési utat, fájlneveket nem volt kedvem visszaírni.

  Option Explicit 'deklarálás nélkül nem lehet változót használni
  Sub masolas_adat()
  
  Dim excel_filename, filename2 As String
  
  excel_filename = ThisWorkbook.Name
  
  Workbooks.Open Filename:="E:\Munkafüzet2.xls"
  filename2 = ActiveWorkbook.Name
  'én azért ide tennék valami kiválasztást, hátha megnyitás után rossz sheet az aktív
  Columns("A:G").Select
  Selection.Copy
  
  Windows(excel_filename).Activate
  Sheets("Munka2").Activate
  'Workbooks(excel_filename).Sheets("Munka2").Activate
  'én jobban szeretem a Workbooks(excel_filename) hivatkozást, de mind1
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Application.CutCopyMode = False
  
  Windows(filename2).Activate
  'vagy Workbooks(filename2).Activate
  ActiveWindow.Close
  
  Application.CutCopyMode = True 'Biztos kel ez a sor? Nekem tök felelslegesnek tűnik.
  End Sub

• Pulsar veterán

  2010-01-08 23:50:33 #5953

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Fire/SOUL/CD üzenetére #5952

  szóval most így néz ki a makró, de nem fut le. Mint bénáztam el?

  Sub masolas_adat()
  
  Excel_Filename = ThisWorkbook.FullName
  
  Workbooks.Open FileName:="C:\Production_Daily.xls"
  Columns("A:G").Select
  Selection.Copy
  Windows(Excel_Filename).Activate
  Sheets("IDE_MASOLD").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  
  Application.CutCopyMode = False
  
  Windows("Production_Daily.xls").Activate
  ActiveWindow.Close
  
  Application.CutCopyMode = True
  End Sub

• Fire/SOUL/CD félisten

  2010-01-08 20:59:09 #5952

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Pulsar üzenetére #5950

  Hali!

  Excel_Filename = "d:\munkafüzet1.xlsx"
  Workbooks.Open filename:=Excel_Filename

  vagy akkor

  Excel_Filename = ThisWorkbook.FullName

  Aztán itt lefut a makró többi része, és az Excel_Filename-be megkapod a fájlnevet, ezzel meg létrehozhatsz egy munkalapot pl így
  Sheets.Add.Name = Excel_Filename,
  aztán meg így hivatkozol rá pl Worksheets(Excel_Filename).Activate

  Remélem erre gondoltál.

  Fire.

• Ramius őstag

  2010-01-08 20:46:04 #5951

  Új Válasz

  Ú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

  

  Ramius

  őstag

  válasz Pulsar üzenetére #5949

  Nem tudom, ki fogom próbálni. Köszi szépen.

• Pulsar veterán

  2010-01-08 20:35:11 #5950

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Fire/SOUL/CD üzenetére #5948

  hm... bár még nem nagyon értem, de kérdezek...
  és hogyna tudok erre hivatkozni később?

  Illetve az excel files nevet te adod meg itt: ???

  'értékadás
  Excel_Filename = "c:\a\b\abcdefg.xlsx"

  Mert nekem az nem jó...
  nekem arra van szükségem, hogy amikor lefuttatom a makrót akkor nézze meg mi a files neve, mint ez:

  Function FileOrFolderName(InputString As String, _
  ReturnFileName As Boolean) As String
  ' returns the foldername without the last pathseparator or the filename
  Dim i As Integer, FolderName As String, FileName As String
  i = 0
  While InStr(i + 1, InputString, Application.PathSeparator) > 0
  i = InStr(i + 1, InputString, Application.PathSeparator)
  Wend
  If i = 0 Then
  FolderName = CurDir
  Else
  FolderName = Left(InputString, i - 1)
  End If
  FileName = Right(InputString, Len(InputString) - i)
  If ReturnFileName Then
  FileOrFolderName = FileName
  Else
  FileOrFolderName = FolderName
  End If
  End Function
  
  Sub TestFileOrFolderName()
  MsgBox FileOrFolderName(ThisWorkbook.FullName, False), , _
  "This Workbook Foldername:"
  MsgBox FileOrFolderName(ThisWorkbook.FullName, True), , _
  "This Workbook Filename:"
  End Sub

  és tök jó is, csak nem tudom hogyan hivatkozzak a files névre a Windows("Book1").Activate Book1 helyett!

• Pulsar veterán

  2010-01-08 20:31:36 #5949

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Ramius üzenetére #5947

  Ez így nem jó?
  =SUM(B1+Sheet2!B1)

• Fire/SOUL/CD félisten

  2010-01-08 20:03:00 #5948

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Pulsar üzenetére #5946

  Hali!

  Ahhoz, hogy ezt megtehesd, az excel tábla útvonalából ki kell emelni a fájlnevet például. Az alábbi makró ezt teszi. (a fájl kiterjesztést törli) Aztán, hogy a kapott névvel új munkalapot hozol-e létre, vagy egy meglévőt átnevezel, az már rajtad áll.

  Private Sub CommandButton1_Click()
  
  Dim Excel_Filename As String
  Dim Point As String
  Dim BackSlash As String
  Dim BackSlashPos As Integer
  
  'értékadás
  Excel_Filename = "c:\a\b\abcdefg.xlsx"
  BackSlash = "\"
  Point = "."
  
  'található-e benne visszaper jel
  BackSlashPos = InStr(1, Excel_Filename, BackSlash, vbTextCompare)
  
  'jobbról balra megkeressük az első pontot(.), hisz addig tart a fájl kiterjesztése
  'majd kitöröljük
  For i = Len(Excel_Filename) To 1 Step -1
  c = Mid(Excel_Filename, i, 1)
  If c = Point Then
  Exit For
  End If
  Next
  Excel_Filename = Left(Excel_Filename, Len(Excel_Filename) - (Len(Excel_Filename) - i + 1))
  
  'ha korábban nem találtunk benne visszaper jelet, akkor az azt jelenti
  'hogy nem tartalmazott útvonalat, csak egy sima fájlnév, ez esetben nem kell
  'megkeresni az első visszaperjelet ismét jobbról balra. (azaz magát a fájl nevét)
  If BackSlashPos <> 0 Then
  For i = Len(Excel_Filename) To 1 Step -1
  c = Mid(Excel_Filename, i, 1)
  If c = BackSlash Then
  Exit For
  End If
  Next
  Excel_Filename = Mid(Excel_Filename, i + 1, (Len(Excel_Filename) - i + 1))
  End If
  MsgBox (Excel_Filename)
  
  End Sub

  Fire.

• Ramius őstag

  2010-01-08 19:51:37 #5947

  Új Válasz

  Ú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

  

  Ramius

  őstag

  Üdv. Segítséget szeretnék kérni.
  A problémám a következő: egy munkafüzeten belül van több munkalapom ugyanazzal a sablonnal. Minden lapon ugyanabban a cellába olyan képlet kellene ami az előző lap egy adott cellájának értékét, és az aktuális lap egy adott cellájának értékét összeadja. Az értékeket szintén képlet számolja ki. Meg lehet ezt oldani valahogy?

• Pulsar veterán

  2010-01-08 18:29:40 #5946

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  válasz Pulsar üzenetére #5945

  ha esetleg nem érthető amire gondolok...
  ha mondjuk a files neve konyv.xls akkor a 4. sorban a Windows("konyv").Activate legyen, de ha lementem a file-t konyvek névre akkor Windows("konyvek").Activate legyen.
  Gondolom ezt valami változóval lehet megcsinálni, ahol a változó értéke a files neve kiterjesztés nélkül. Csak azt nem tudom azt hogyan csinálom meg

• Pulsar veterán

  2010-01-08 18:09:47 #5945

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  Sziasztok!

  van egy ilyen egyszerű kódom.
  Workbooks.Open Filename:="R:\Dell\Reporting\Production_Daily.xls"
  Columns("A:G").Select
  Selection.Copy
  Windows("Book1").Activate
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Range("L13").Select
  Windows("Production_Daily.xls").Activate
  ActiveWindow.Close

  ahol azt szeretném elérni, hogy a Windows("Book1").Activate részben a Book1 ne Book1 legyen hanem minddig az ahonnan futtatom a macrot. Tehát a filest mindig el van mentve különböző néven, és a gondom az, hogy nem tudom hogy hivatkozzak rá, ha mindig más a neve.

• sonar addikt

  2010-01-07 17:30:22 #5944

  Új Válasz

  Ú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

  

  sonar

  addikt

  válasz Fire/SOUL/CD üzenetére #5921

  Köszi müxik!
  Köszi ulrik19

• Cuci3 tag

  2010-01-07 17:22:02 #5943

  Új Válasz

  Ú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

  

  Cuci3

  tag

  válasz ulrik19 üzenetére #5942

  Csak annyit fűznék hozzá, hogy a CSE nem csak akkor kell, mikor a végösszegre vagyok kíváncsi. Például mátrixszorzásnál vagy tömbszorzásnál (MSZORZAT), ha nem akarok vacakolni képlettel, hanem függvénnyel akarom megoldani.

  Legyen egy 2x3-as és egy 3x4-es mátrixom, ebben a sorrendben berakom az MSZORZAT-ba, majd az eredményt kijelölöm úgy, hogy egy 2x4-es mátrix/tömb első cellája legyen, F2+CSE, és fel van töltve az eredménymátrix.
  Tudom, hogy ennél a bugyuta példánál jobb lenne a sima képlet.

• ulrik19 tag

  2010-01-07 14:35:44 #5942

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz ArchElf üzenetére #5940

  hmmm, én nem ismertem ezt a mókát, de jópofa dolog.

  arról van szó, amikor egyszerre akarok sok sorban lévő adattal dolgozni, és kell mondjuk egy végösszeg (ami mondjuk összegez egy sorban néhány cellát, majd ezeket kell soronként összegezni).

  pl. vannak termékek egymás alatt, az oszlopokban a heti forgalmak.

  kell a totál árbevétel. akkor pl. csinálok minden sor végén egy összesítést, majd ezeket az utolsó sorban összegzem.

  de, megy ez a CSE (cltr-shift-enter) módon, hogy az adatokat tömbként kezelem.

  mondjuk így:
  A oszlop: terméknevek
  B oszlop: 1. hét
  C oszlop: 2. hét

  összegző képlet: =SZUM(B1:B100+C1:C100)
  ha ennek a végén entert ütsz, hibát jelez, de ha CSE-t,
  akkor ott az eredmény.
  a szum() helyett lehet bármilyen összegző függvény
  (átlag, szórás stb),
  az argumentum lehet összetett is,
  pl. =SZUM(B1:B100+C1:C100*D1:D100)
  itt a B-hez hozzáadatom a C és a D szorzatát.
  
  tovább lehet ezt bolondítani egy HA()-val is
  pl.=SZUM(HA(A1:A100="bélyeg";B1:B100+C1:C100*D1:D100))
  amikor csak a bélyeg-eket összesíti.
  egyébként képletnél {=...} jelenik meg, ebből látszik,
  hogy tömbről van szó.

• Delila_1 veterán

  2010-01-07 14:05:01 #5941

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ArchElf üzenetére #5940

  Tömbképlet.
  Talán valaki jól elmagyarázza, én nem tudom érthetően elmondani.

• ArchElf addikt

  2010-01-07 13:58:38 #5940

  Új Válasz

  Ú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

  

  ArchElf

  addikt

  válasz Delila_1 üzenetére #5938

  Ha már billentyűkombináció, akkor a SHIFT+CRTL+ENTER-rel készített képleteket el tudnád magyarázni?

  AE

• Cuci3 tag

  2010-01-07 12:41:15 #5939

  Új Válasz

  Ú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

  

  Cuci3

  tag

  válasz Delila_1 üzenetére #5938

  Nekem valahogy a Ctrl+A mindig jobban tetszett. Szinte ugyanaz, csak nem ugrik az tartomány első cellájához.

• Delila_1 veterán

  2010-01-07 11:42:54 #5938

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz kételkedem üzenetére #5937

  Azért írtam.

• kételkedem addikt

  2010-01-07 11:39:45 #5937

  Új Válasz

  Ú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

  

  kételkedem

  addikt

  válasz Delila_1 üzenetére #5936

  Köszi, a bill kombinációk gyorsítják a munkámat!

• Delila_1 veterán

  2010-01-07 08:16:40 #5936

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz kételkedem üzenetére #5935

  Úgy gondolom, hogy mindegyik füzetben minden lapra tennék egy oszlopot (ha nincs), ami tartalmazza a hónap nevét. Azt biztosan tudod, hogy a lapokat együttesen kijelölve egyszerre mindre beviheted az azonos adatokat. Jelen esetben egyszerre szúrhatsz be egy oszlopot, és a hónap oszlop fejlécét. Az egyes lapokon szintén kijelölöd az oszlopot (ameddig kell), az aktuális cellába beírod a hónap nevét, majd Ctrl+Enterrel a teljes oszlop minden cellájába egyszerre viszed be.
  Az összevont kimutatás egy-egy füzetben ilyen alapon 12 sort fog tartalmazni, ehhez az kell, hogy a dátum oszlop legyen az első a lapokon.
  A kimutatásba Ne vedd bele az összegző sort!
  Az egyes lapokon a táblázatod bármelyik celláján állva a Ctrl+t kijelöli a teljes táblát, ez is gyorsíthatja a munkát, mikor az egyes lapokat hozzáadod a kimutatáshoz. Vigyázz, a kimutatásba Ne vedd bele az összegző sort!

• kételkedem addikt

  2010-01-06 21:01:46 #5935

  Új Válasz

  Ú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

  

  kételkedem

  addikt

  válasz Delila_1 üzenetére #5934

  Sajnos ez még mindig sok kattintás

  Nem annál a gépnél vagyok amelyiken csinálnom kellett, de kb azt csináltam, amit a kimutatás készítő csinál. Ott is meg kell adni minden egyes cellát, amit figyelembe kell vennie.

• Delila_1 veterán

  2010-01-06 19:54:20 #5934

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz kételkedem üzenetére #5933

  Egy-egy füzeben az összes hónapról tudsz egy közös kimutatást készíteni [2003-as verzióban Adatok/Kimutatás vagy kimutatásdiagram/Több tartomány (összesítés)].
  Ezeket összegyűjtöd 1 füzetben. Az is jó, ha az összesítő füzetbe értékként másolod be, és újabb közös kimutatást csinálsz belőlük.

  Milyen egyszerű leírni!

• kételkedem addikt

  2010-01-06 13:08:47 #5933

  Új Válasz

  Ú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

  

  kételkedem

  addikt

  válasz Delila_1 üzenetére #5932

  Szia!

  Adott 5 üzlet. Az öt üzlet forgalmi adatait rendre a bolt1, bolt2...bolt5 fájlok tartalmazzák kb 6 évre visszamenőleg. Az egyes munkafuzetekben külön munkafüzet lapon vannak a hónapok. A táblázat sorait a hónap napjai adják, az oszlopokban a beszerzés, eladás, göngyöleg, selejt, forgalom stb vannak. Az oszlopok alján összeadva az egész hónap.

  Kellett csinálnom egy éves összesítőt az elmult 3 évről évenkénti bontásban. A táblázatban a sorokat a boltok nevei adják, az oszlopokban pl az éves összes selejt van.
  Manuálisan meg tudtam oldani, hogy adja össze az adott bolt havonkénti selejtjét, de ez nem igazán járható út, hiszen 3 év az 36 hónap, 5 bolt 10 forgalmi adatánál rengeteget kell kattintgatni.

  Makróval, vagy függvénnyel kellene megcsinálni, de sajnos pl makrót sosem írtam még és a függvényeknek is csak tördékét ismerem.

  Remélem érthető amit összezagyváltam.

• Delila_1 veterán

  2010-01-06 10:17:22 #5932

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz szavapart üzenetére #5931

  Szívesen.

• szavapart csendes tag

  2010-01-06 09:51:43 #5931

  Új Válasz

  Ú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

  

  szavapart

  csendes tag

  válasz Delila_1 üzenetére #5930

  Hálás Köszönetem!
  Működik. Ismét tanultam valamit.

• Delila_1 veterán

  2010-01-06 09:32:15 #5930

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz szavapart üzenetére #5928

  Az A1 tartalmazza a dátumot és az időt.
  A függvény, ami ezekből kiemeli az időt: =IDŐ(ÓRA(A1);PERC(A1);0)

  Mondjuk, hogy az A2-ben is van egy dátum és idő. A fenti függvény a B1-ben és a B2-ben kiemeli ezekből az időket.
  Egy cellában tudsz számolni velük, például: =PERC(B2-B1)
  Vagy: =IDŐ(ÓRA(B2-B1);PERC(B2-B1);0)

• ulrik19 tag

  2010-01-06 09:20:32 #5929

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz szavapart üzenetére #5928

  Ez az idő függvényes "tartalmazza a dátumot" dolgot nem igazán értettem. De, ha a dátumcella formátumát átállítod hh:mm-re, akkor csak az idő látszódik, és kereshető. (elvileg)

• szavapart csendes tag

  2010-01-06 08:23:43 #5928

  Új Válasz

  Ú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

  

  szavapart

  csendes tag

  Sziasztok!
  Lenne nekem is egy kérdésem.
  Tehát: Van egy oszlop, amely dátumot és időt tartalmaz ÉÉÉÉ.HH.NN ÓÓP formátumban, de csak az óra, percre lenne szükségem. Levágni (JOBB,BAL) nem sikerült, mert rögtön átalakítja számmá. IDŐ függvény látszólag megteszi, az oszlopban csak az óra perc látszik, de nem kereshető, mert valójában tartalmazza a dátumot is.
  Bármi ötletet szívesen látok.
  Előre is köszönöm.

• Delila_1 veterán

  2010-01-06 08:23:09 #5927

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Z-Tom-ee üzenetére #5926

  Ezt csak makróval lehet megoldani szerintem. Míg nem jön jobb megoldás, itt a makró hozzá:

  Sub auto_open()
  Dim dátum As Date
  
  dátum = Date
  Sheets("Munka1").Select
  Cells.Find(What:=dátum, After:=ActiveCell, LookIn:=xlFormulas, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  MatchCase:=False, SearchFormat:=False).Activate
  End Sub

  Fontos, hogy auto_open legyen a címe, mert az ilyen nevű makró a füzet behívásakor automatikusan indul.
  A Sheets("Munka1").Select sorban a saját lapod nevét írd be.

• Z-Tom-ee csendes tag

  2010-01-05 19:53:16 #5926

  Új Válasz

  Ú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

  

  Z-Tom-ee

  csendes tag

  Sziasztok.

  SOS szükségem lenne egy kis segítségre 2007-es excelben. Igazából nem tudom, hogyan lehetne rákeresni a problémára, ezért is próbálok itt informálódni. (pár kulcsszót kipróbáltam már, de nem találtam érdemi anyagot)
  Egy naptárat kell készítenem, különböző funkciókkal. Ez nem is gond eddig. A hiba ott kezdődik, hogy az aktuális napot ki kell jelölni a teljes évből. Feltételes formázással ez megy is, de azt szeretném megoldani, hogy az excel ugorjon is rá erre a kijelölt cellára. Tehát ha már az év közepén tartunk, és az adott nap már nem látszana - mert olyan hosszú a lista, hogy "kilóg" a képernyőről - akkor is valahogy kerüljön az aktuális nap valahogy a képernyőre. Lehetőleg ne makróval, mert több kolléga gépén is futni fog majd a program, és sok helyen le vannak tiltva ezek a funkciók. (egy tavalyi excelben valahogy ezt megoldották, de nem tudom, hogy, és az még 2003-asban íródott)
  Előre is köszönöm a segítséget!

  T

• Cuci3 tag

  2010-01-05 19:24:16 #5925

  Új Válasz

  Ú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

  

  Cuci3

  tag

  válasz Fire/SOUL/CD üzenetére #5924

  Netes kutatás alapján én is ezt állapítottam meg, úgyhogy maradt a szétvágás.
  Azért köszi!

• Fire/SOUL/CD félisten

  2010-01-05 16:34:32 #5924

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Cuci3 üzenetére #5923

  Hali!

  . Az MS elég egyértelműen fogalmaz: [link]
  Arról nem tudok, hogy valami registry-s trükkel vagy egyéb módon lehetne-e magasabbra állítani a 64k/procedúránként limitet.

  Fire.

• Cuci3 tag

  2010-01-05 14:57:21 #5923

  Új Válasz

  Ú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

  

  Cuci3

  tag

  Úgy érzem "jól" kezdődik az év. VBA-ban utolért a végzet, és ezt a bájos "Proceed too large" üzenettel közölte felém. A kód széttördelésén kívül van valakinek egyéb megoldási javaslata? Előre is köszi!

• Aprósólyom addikt

  2010-01-05 08:34:07 #5922

  Új Válasz

  Ú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

  

  Aprósólyom

  addikt

  válasz Delila_1 üzenetére #5915

  Ne haragudj tényleg!
  Írtam egy válaszlevelet, csatolva egy régi excel-t amit használt a kollégám (kézzel vitte fel teljesen), hogy mi az ami egyszerűbben megoldható és csinálok egy olyan logika szerinti formázást.

• Fire/SOUL/CD félisten

  2010-01-04 21:12:33 #5921

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz sonar üzenetére #5918

  Hali!

  Látom ulrik19 kolléga megelőzött, de ha már én is megírtam, akkor be is rakom. Ez Microsoft ActiveX Data Objects 6.0 Library bővítménnyel és adatkapcsolattal, valamint mysql connector ODBC bővítménnyel megtámogatva van elkészítve. Természetesen kifogástalanul működik. Egy excel_mysql nevű adatbázis, test nevű tábláján megy végig és írja ki sorban a mezőket.

  Private Sub CommandButton1_Click()
  
  Dim FSCD_SQLConnection As ADODB.Connection
  Dim FSCD_Recordset As ADODB.Recordset
  
  Dim FSCD_SQLConnectionString As String
  Dim FSCD_SQLCommand As String
  Dim FSCD_MYSQL_Table As String
  
  On Error GoTo FSCD_ErrorHandler
  
  FSCD_MYSQL_Table = "test"
  
  FSCD_SQLConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;" & _
  "User ID=root;Extended Properties='';DSN=Excel_MySQL_Tutorial;" & _
  "UID=root;SERVER=127.0.0.1;DATABASE=excel_mysql;PORT=3306;'';" & _
  "Initial Catalog=excel_mysql;Initial Catalog=excel_mysql"
  
  Set FSCD_SQLConnection = New ADODB.Connection
  FSCD_SQLConnection.ConnectionString = FSCD_SQLConnectionString
  FSCD_SQLConnection.Open
  
  FSCD_SQLCommand = "SELECT * FROM " & FSCD_MYSQL_Table
  Set FSCD_Recordset = New ADODB.Recordset
  FSCD_Recordset.Open FSCD_SQLCommand, FSCD_SQLConnection
  
  FSCD_Recordset.MoveFirst
  While Not FSCD_Recordset.EOF
  MsgBox FSCD_Recordset.Fields("mező1").Value
  MsgBox FSCD_Recordset.Fields("mező2").Value
  FSCD_Recordset.MoveNext
  Wend
  FSCD_Recordset.Close
  FSCD_SQLConnection.Close
  
  Exit Sub
  
  FSCD_ErrorHandler:
  
  MsgBox "Error:" & Err.Description, vbCritical, "Fire/SOUL/CD"
  
  End Sub

  Fire.

• ulrik19 tag

  2010-01-04 20:58:54 #5920

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz ulrik19 üzenetére #5919

  Még annyi, hogy a rekordoknál az adott mezőre való hivatkozás kétféle lehet (legyen a lenti példa alapján rs a recordset)

  rs!mezőnév

  vagy

  rs.Fields(mezősorszám)

• ulrik19 tag

  2010-01-04 20:42:46 #5919

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz sonar üzenetére #5918

  Kell hozzá a Microsoft ActiveX Data Objects 2.8 Library (Tools/References).

  Értelemszerűen adatbázisnév, felhasználónév és jelszó a ConnectionString-ben. Illetve ugyanitt meg kell adni az adott MySQL ODBC driver-t. (Nálam 5.1, de az adott gépen persze lehet más. Ha rosszat adtok meg, nem találja meg.)

  Ebben a példában 3 mezőt ad vissza a lekérdezés, aztán minden visszaadott adatot kinyom az első sheet-re. Profin persze kellene bele hibakezelés stb.

  Option Explicit
  
  Public conn As ADODB.Connection
  Public rs As Recordset
  Public sh1 As Worksheet
  Public SQL As String
  
  Public Sub mySQL_kapcsolat()
  Dim c As Integer
  
  Set sh1 = Excel.Worksheets(1)
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  
  conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost; DATABASE=adatbazisnev;UID=anonymus;PWD=; OPTION=3"
  conn.Open
  
  SQL = "select * from tbl_tablanev"
  
  rs.CursorLocation = adUseServer
  rs.Open SQL, conn
  rs.MoveFirst
  
  c = 1
  Do Until rs.BOF Or rs.EOF
  sh1.Cells(c, 1).Value = rs.Fields(0)
  sh1.Cells(c, 2).Value = rs.Fields(1)
  sh1.Cells(c, 3).Value = rs.Fields(2)
  rs.MoveNext
  c = c + 1
  
  If rs.EOF Then
  rs.MoveFirst
  Exit Sub
  End If
  Loop
  
  End Sub

• sonar addikt

  2010-01-04 19:49:54 #5918

  Új Válasz

  Ú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

  

  sonar

  addikt

  válasz ulrik19 üzenetére #5917

  Makrós kellene

• ulrik19 tag

  2010-01-04 17:16:05 #5917

  Új Válasz

  Ú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

  

  ulrik19

  tag

  válasz sonar üzenetére #5916

  Mindenképpen makrós feldolgozás kell hozzá? A "Külső adatok átvétele" lehetőség nem elegendő?

• sonar addikt

  2010-01-04 17:02:39 #5916

  Új Válasz

  Ú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

  

  sonar

  addikt

  Egy excel makróba irt mysql kapcsolódás és egy egyszerű query mintát tud vki becopyzni?
  Amit eddig találtam azok nem igazán működnek.

• Delila_1 veterán

  2010-01-04 15:28:41 #5915

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Aprósólyom üzenetére #5914

  Szívesen, de ha lehet, máskor gyorsabban reagálj!

  A formázást nem akarod automatizálni a sok-sok lapon?

• Aprósólyom addikt

  2010-01-04 14:32:05 #5914

  Új Válasz

  Ú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

  

  Aprósólyom

  addikt

  válasz Delila_1 üzenetére #5913

  Ez a csaj egy fenoménke! Hálás köszönet a segítésért!

• Delila_1 veterán

  2010-01-03 17:04:35 #5913

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz ulrik19 üzenetére #5912

  A kérdés, lehet-e saját rajzolatú ikont készíteni a 2007-ben?

• ulrik19 tag

  2010-01-03 16:59:10 #5912

  Új Válasz

  Ú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

  

  ulrik19

  tag

  Ti egyről beszéltek egyébként? Mert nekem úgy tűnik, Feltételes formázás vs. Makróikon a "téma". Vagy valamit rosszul olvasok?

• Fire/SOUL/CD félisten

  2010-01-03 16:56:30 #5911

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #5910

  Hali!

  Nem használok 2003-at, a 2007 megjelenése pillanatától...
  Csak érdekelt volna, hogy van-e ilyen lehetőség a 2007-ben, mert még nem találkoztam vele.(igaz, nem is kerestem)

  2003-al dolgoztam persze, de teljesen elfelejtettem a menürendszerét, a 2007 új felépítéséből adódóan. Sajnos nem lehet párhuzamot vonni a kettő közt, pl testreszabás menü...

  Fire.

• Delila_1 veterán

  2010-01-03 16:54:01 #5910

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #5909

  A 2003-ban nem találod?

• Fire/SOUL/CD félisten

  2010-01-03 16:51:27 #5909

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #5908

  Hali!

  Nem lelem.
  2007-ben ez van: [link], a megjelenő ablakban meg ez[link].

  Itt hiába kattogtatok jobb egérrel, nem törpénik semmit.

  globális beállításokban van testreszabás menü, de ott meg azt lehet beállítani(többek közt), hogy milyen gyorsindító ikonok jelenjenek meg az ún. Ribbon-on...

  Fire.

• Delila_1 veterán

  2010-01-03 16:41:53 #5908

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #5907

  A Testreszabás menü legyen megnyitva. A kérdéses ikonon jobb klikk, Gombkép szerkesztése.

• Fire/SOUL/CD félisten

  2010-01-03 12:10:31 #5907

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Cuci3 üzenetére #5905

  Hali!

  Hol van ez pontosan a 2003-ban? Mert keresgéltem a 2007-ben, de nem igazán találok ilyet, de vagy balfék vagyok, vagy tényleg nincs benne...

  Fire.

• Delila_1 veterán

  2010-01-03 08:40:36 #5906

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Cuci3 üzenetére #5905

  Köszönöm.
  A régebbi verziókban már régóta használom a saját készítésű ikonokat. Természetesen arra mindig szánok időt, ami a munkát gyorsítja. Igen, szegényes a színpaletta, de még ezekkel is kifejező rajzokat lehet létrehozni.

• Cuci3 tag

  2010-01-02 20:42:24 #5905

  Új Válasz

  Ú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

  

  Cuci3

  tag

  válasz Delila_1 üzenetére #5904

  Sose használtam 2007-et, de 2003-ban ott van a gombkép szerkesztése lehetőség (testreszabás esetén jön elő jobb klikkel), meg lehet rajzolni a gombot! Márha van erre időd, meg a gyér színpalettával beéred.

• Delila_1 veterán

  2010-01-02 19:46:42 #5904

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #5903

  Köszönöm, hogy fáradtál vele. Kénytelen leszek a makrók tartalmához nem illő képeket illeszteni az ikonokhoz. (Hordozni nem akarom, csakis a saját gépemen használom a makrókat, a personal.xls-ben vannak)

• Fire/SOUL/CD félisten

  2010-01-02 19:43:24 #5903

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #5902

  Hali!

  Sajnos ez nem megoldható, kicsit elgondolkodtam és rá is eszméltem.
  Hiába készítenél egy saját ikokollekciós feltételes formázást, nem lenne hordozható a munkafüzet, azaz egy másik gépen/excelen nem jelennének meg a saját ikonok, hisz az excel tábla ezt nem menti(magát az ikonok képadatait) csak az indexüket. Szóval ez nem nyert. Olvastam a 2010-esről de nem utal rás semmi, hogy változna a helyzet...

  Fire.

• Delila_1 veterán

  2010-01-02 19:17:19 #5902

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD üzenetére #5901

  Ezzel az a baj, hogy csak a Microsoft ízlésének megfelelő képeket választhatom. Pedig a makróim egyértelműen olyan célokat szolgálnak, amit MS-ék nem nyújtanak nekem.

• Fire/SOUL/CD félisten

  2010-01-02 19:12:24 #5901

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fire/SOUL/CD üzenetére #5899

  Szóval a lemeradt link: [link]

  Fire.

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