igen.

a megnyitás egy részét is nektem kszönhetem:

Sub masolas_adat()

Dim excel_filename, filename2 As String

excel_filename = ThisWorkbook.Name

Workbooks.Open FileName:="C:\Production_Daily.xls"
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy

Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Application.CutCopyMode = False

Windows(filename2).Activate
ActiveWindow.Close

End Sub

Hova tegyem itt azt a sort? Production_Daily.xls - nek kellene az create time-ja

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

10 percre megszakadt a hálózatom.

kelt=Workbooks("Generált").BuiltinDocumentProperties("Creation date").Value
Workbooks("Állandó.xls").Sheets("Munka1").Range("A11") = kelt

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

ezt nyilván csak akkor tudom ha nyitva van a files ugye?
tehát pl így?

Workbooks.Open FileName:="C:\Production_Daily.xls"

kelt=Workbooks("Generált").BuiltinDocumentProperties("Creation date").Value
Workbooks("Állandó.xls").Sheets("Munka1").Range("A11") = kelt

filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

A Production_Daily.xls az a fájl, amit időről időre generáltatsz? Akkor

kelt=Workbooks("Production_Daily.xls ").BuiltinDocumentProperties("Creation date").Value

az első sor.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Szép kerek szám.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

igen... ja igen, az persze, nem írtam át, csak az elhelyezésre voltam kíváncsi hogy jó-e?!

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Akkor a második sor

Workbooks(excel_filename).Sheets("Munka1").Range("A1") = kelt

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

ez lett, és működik... köszönöm nektek MESTEREK!!!

Sub masolas_adat()

Dim excel_filename, filename2, kelt As String

excel_filename = ThisWorkbook.Name

Workbooks.Open FileName:="C:\Production_Daily.xls"

kelt = Workbooks("Production_Daily").BuiltinDocumentProperties("Creation date").Value
Workbooks(excel_filename).Sheets("Data").Range("A47") = kelt

filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy

Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Application.CutCopyMode = False

Windows(filename2).Activate
ActiveWindow.Close

End Sub

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Részemről szívesen. Jó kis kollektív munka volt.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Részemről is

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

az, tényleg köszönök nektek! és ami a legjobb, hogy ilyenkor mindig tanulok valamit, és ennek örülök a legjobban!

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Csak a tagolást nem Bár itt nem is nagyon volt mit tagolni.

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

A másolás rövedebben:
Columns("A:G").Copy

Az érték beillesztéséhez elég ennyi:
Selection.PasteSpecial Paste:=xlValues

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

igen, én is finomítottam még egy kicsit a kódon (érdemes használni a Set-et)

Sub masolas_adat()
Dim alapfile As Workbook, adatok As Workbook

Set alapfile = ThisWorkbook
Set adatok = Workbooks.Open("C:\Production_Daily.xls")

alapfile.Sheets("Data").Range("A47") = adatok.BuiltinDocumentProperties("Creation date").Value
adatok.Sheets(1).Columns("A:G").Copy
alapfile.Sheets("IDE_MASOLD").Range("A1").PasteSpecial Paste:=xlValues

adatok.Close
End Sub

[ Szerkesztve ]

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Mindjárt csak a Sub és az End Sub marad.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Kicsit fura dolog van, otthon lefutott a macro, itt bent nem akar.
Ezt a hibát írja ki, és nem értem miért

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Az Eszközök/Bővítménykezelőben kapcsold be az Analysis Toolpak és az Analysis Toolpak - VBA CheckBoxokat.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

elvileg be van pipálva minden.. márha arra gondolok, mint Te.

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Ha a menü is eltűnt a tools alól, akkor:
Kikapcsolod őket, majd OK. Fájl bezárása, kinyitása, Tollpack-ek visszakapcsolása, és utána működik. MS megoldás - általában működik.
Az Analysis ToolPack ismert problémája.

AE

Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]

a hibaüzenetnél nyomj a debug-ra, nézd meg, hogy melyik sornál jelzi. abból okosabbak leszünk (nekem nem egyértelmű, hogy csak a checkbox miatt lehet)

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Hali!

Olyan tulajdonságot kérsz le a BuiltinDocumentProperties segítségével, ami nem tartalmaz értéket. Ilyen esetben hibakezelőt kell írni.
(Ez meg alap, azaz hibakezelés nélkül egy kód sem kód)

Bővebben

Fire.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Sziasztok.

Kérlek valaki adjon ötletet, hogy tudnám megoldani ezt:

Adott egy táblázat autókról, mindegyikhez tartozik gyári és utángyártott érték. Szeretném összeadni külön-külön a gyárikat és utángyárottakat. Hogyan tudnám ezt megtenni? Egyenként meg lehetne oldani, hogy miden másodikat jelölöm ki, de ez egy többszáz soros táblázatnál igen nehéz.

Talán valahogy fkeresesel képzelném el, de nem tudom hogy ágyazzam bele az összeadást.

Van valami függvénytrükk, amivel minden második cellát adja csak össze? Vagy a legjobb az lenne, ha azokat a soroknak az x-edik értékét adná össze, ahol a sorban szerepel a gyári vagy utángyártott név.

Előre is köszönöm a segítséget.

Origin nick: ZIGHY

rendezd sorba ABC szerint, ahol az "utángyártott" vagy "gyári" kifejezés van. így egymás után kerülnek az egyformák.

vagy ha ez nem megoldható, mert nincs ilyen, vagy össze-vissza van a szöveg, valahogy "kódold" be 1-es legyen az utángyártott, 2 a gyári. (pl. ha tényleg minden második utángyártott, akkor kezdd 1-gyel az A1 cellában, majd alá képlet az A2-be: =3-A1... ezt lemásolva minden másodikban 1 lesz, egyébként 2. Ha ezt sorbateszed, akkor megint az egyformák jönnek egymás után.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Másik módszer:
Tegyél be egy autoszűrőt a címsorba.
Az összegek alá írd be a RÉSZÖSSZEG függvényt, 9-es függvényszámmal.
=részösszeg(9;tartomány)
Ebben a cellában mindig az aktuális szűrésnek megfelelő összeg jelenik majd meg.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

ha az általad írt rövidített verziót rakom be, akkor itt:

alapfile.Sheets("Data").Range("A47") = adatok.BuiltinDocumentProperties("Creation date").Value

ArchElf köszi, ezt majd holnap kipróbálom.

[ Szerkesztve ]

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

de mi az, hogy nem tartalmaz érzéket? hát amit lekérek az nem maga egy érték?

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

valamiért az az excel, amivel ott dolgozol, nem tartalmazza (ezek szerint) a "Creation date" tulajdonságot, ezért jelez hibát.

Próbáld ki szerintem a .BuiltinDocumentProperties.Item(1).Value módszerrel (ahol az indexet 0-tól viszed, amíg nem jelez hibát, és figyeled, melyik adja vissza a jó értéket.

Az is lehetséges, hogy mivel a kérdéses xls-t egy külső (gyanítom nem office) program hozta létre, nem tette bele a file-leírásba ezeket a tulajdonságokat... Ha így van, akkor más megoldás kell. Méghozzá valamilyen fso (FileSystemObject) módszer.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Hali!

Azt jelenti, hogy nincs olyan tulajdonság vagy ha van is akkor nincs értéke pl NULL, NIL
Ami meg a kódot illeti, Te Creation date -et kérsz le, ami hivatalosan Creation Date Esetleg próbálj odafigyelni a kis-nagy betűkre, bár bevallom nem tudom, hogy ez VBA-ban számít-e.

Fire.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Creation date (kis d) működött, az office helpben is így szerepel.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

egy linuxos szerver generál egy adathalmazt, amit ki tud exportálni exelbe. szóval nem. csak azt nem értem, miért működött itthon. mikor hazahoztam pendrive-on, és lementettem, akkro valószínűleg hozzáíródtak az infók?

aha, és azt hogyan használjam?

Fire/SOUL/CD ja, értem... ok oda figyelek rá, köszi

[ Szerkesztve ]

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Hali!

Megnéztem 2007ben gyorsan, mindegy hogy kis/nagy betű kifogástalanul működik, legalábbis ez a sor
Private Sub CommandButton1_Click()
Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Creation Date").Value
End Sub

Fire.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Hali!

A Te kódod működik rendesen, most próbáltam 2007 és 2010 Excvel alatt is. Pulsar hibáját lehet hogy az okozza, hogy régebbi excel-en próbálja használni, ahhoz meg kell két DLL, mert csak akkor használható a BuiltinDocumentProperties.

Fire.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

ez kell bele valahol a sub elején:

Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("c:\Production_Daily.xls")

és a dátumos sort erre módosítani:
alapfile.Sheets("Data").Range("A47") = adatfile.DateCreated

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

üdv. tud valaki olyanról, hogy másolás --> irányított beillesztés megjegyzésként? (comment)

értem, hogy így direkt nincs, de hátha van furmány shortcut. köszi.

www.lapanet.hu

Csak makróval tudom elképzelni. Vagy megadott cellák kommentjét kiszedi a makró és beírja megadott cellákba, vagy egy függvényben kell a cellát megadni és a függvény eredménye a cella kommentje lesz. Márha van.
Programot is szeretnél, vagy csupán a válasz érdekelt?

valami 30-40 celláról van szó, szóval hamarabb megvagyok, mintha megprogramozom. csak az érdekelt van-e rá megoldás. köszi mindenesetre.

www.lapanet.hu

itthon 2010 van fent, bent 2003. szóval az is lehet!

ulrik19: kipróbálom, köszi

[ Szerkesztve ]

...::: www.waze.hu :::... ...::: http://www.facebook.com/waze.hu :::...

Hali!

Hát akkor fogadj el egy tanácsot. Mivel a 2010 BETA változat, ezért ha lehet kerüld a használatát, ha ilyen jellegű munkára(makró programozásra) adod a fejed, mert ki tudja mi változott benne és abból mi bugos vagy sem. Én a helyedben sürgősen visszatérnék 2007-re, aztán majd ha kint a végleges 2010, csak akkor használnám "komolyabb" célokra, mert akkor már pontosan lehet tudni, hogy mik változtak, milyen újítások/javítások történtek végérvényesen.

Fire.

UI: persze a jelen hibát nem feltétlenül ez okozza, csak ha lehet beta-t ne használjunk, mert sok kellemetlenséget okozhat.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

üdv

Meg lehet valahogy oldani, hogy az excel-ben ha a xls egy szerveren van, több ember tudja szerkeszteni?

Hardvert vásárolok nagy tételben is!!!

Egyszerre? Mármint egy időben? Nem hiszem.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

de lehet, mert láttam már ilyet

Hardvert vásárolok nagy tételben is!!!

Én nem hiszem, tudom, hogy lehet.
2003-ban: Eszközök/Közös használat. De nagyon meg tudja bolondítani a dolgot, ha egy cellát két ember szerkeszt. Tehát ajánlom, hogy emberenként jelöljetek ki területeket.
A frissítések csak akkor láthatóak, ha kb mindenki rányom a mentésre.
Amúgy a közös használattal néhány funkció (pl.: cellaegyesítés, diagramkészítés) nem használható

Jó pap holtig tanul

Igen, a mentések miatt zavar okán gondoltam, hogy nem nagyon lehet. Ezek szerint lehet, csak figyelni kell.

...az élet igazságos, mert pl. akinek rövidebb az egyik lába, annak hosszabb a másik...

Hali!

Ha profin szeretnéd megoldani, akkor ez kell hozzá:
Windows SharePoint Services 3.0
Itt pedig olvashatsz a mikéntről, feltételekről [link]

Ahogy itt egyik fórumtárs írta, a közös használat esetedben nem igazán a legjobb megoldás.

Fire.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Thx!

Hardvert vásárolok nagy tételben is!!!

A C1:C15 terület képleteinek értékét illeszti be a cellákhoz rendelt megjegyzésekbe.

Sub IrBeillMegjegyzbe()
Dim CV, Comment As Object
Dim Cellák As Range

Set Cellák = Range("C1:C15")

For Each CV In Cellák
If CV.Value > "" Then
CV.AddComment
CV.Comment.Text Text:=CV.Value & ""

'CV.Value = "" 'Cella képletének törlése
End If
Next
End Sub

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

végül kicsit parasztosan nekem ilyen lett:

For x = 1 To 200
If Cells(4, x) <> "" Then
Cells(3, x).AddComment
Cells(3, x).Comment.Text Text:=Cells(4, x).Value
End If
Next x
End Sub

[ Szerkesztve ]

www.lapanet.hu

Azt hittem, képletek vannak a cellákban, azért van a
CV.Comment.Text Text:=CV.Value & ""
sor végén az & "".

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/