-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Pulsar
veterán
válasz Delila_1 #5999 üzenetére
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 SubHova tegyem itt azt a sort? Production_Daily.xls - nek kellene az create time-ja
-
Delila_1
Topikgazda
10 percre megszakadt a hálózatom.
kelt=Workbooks("Generált").BuiltinDocumentProperties("Creation date").Value
Workbooks("Állandó.xls").Sheets("Munka1").Range("A11") = keltProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Pulsar
veterán
válasz Delila_1 #6003 üzenetére
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 -
Delila_1
Topikgazda
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. Többet ésszel, mint ész nélkül.
-
Pulsar
veterán
válasz Delila_1 #6005 üzenetére
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 -
-
ulrik19
tag
válasz Delila_1 #6014 üzenetére
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...
-
ArchElf
addikt
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]
-
félisten
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)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)
-
q13579
senior tag
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.
-
ulrik19
tag
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...
-
Delila_1
Topikgazda
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. Többet ésszel, mint ész nélkül.
-
Pulsar
veterán
válasz Fire/SOUL/CD #6023 üzenetére
de mi az, hogy nem tartalmaz érzéket? hát amit lekérek az nem maga egy érték?
-
ulrik19
tag
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...
-
félisten
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)
-
ulrik19
tag
válasz Fire/SOUL/CD #6030 üzenetére
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...
-
Pulsar
veterán
válasz ulrik19 #6029 üzenetére
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 ]
-
félisten
válasz ulrik19 #6031 üzenetére
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 SubFire.
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)
-
félisten
válasz Fire/SOUL/CD #6033 üzenetére
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)
-
ulrik19
tag
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...
-
lapa
veterán
ü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.
-
Cuci3
tag
-
Pulsar
veterán
válasz Fire/SOUL/CD #6034 üzenetére
itthon 2010 van fent, bent 2003. szóval az is lehet!
ulrik19: kipróbálom, köszi
[ Szerkesztve ]
-
félisten
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)
-
animatrix11
őstag
ü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!!! Elérhetőség: 18. kerületben.
-
ulrik19
tag
válasz animatrix11 #6041 üzenetére
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...
-
Cuci3
tag
válasz ulrik19 #6042 üzenetére
É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ó -
félisten
válasz animatrix11 #6043 üzenetére
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)
-
animatrix11
őstag
válasz Fire/SOUL/CD #6046 üzenetére
Thx!
Hardvert vásárolok nagy tételben is!!! Elérhetőség: 18. kerületben.
-
Delila_1
Topikgazda
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. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Apple notebookok
- Vicces képek
- Akvarisztika
- Óra topik
- Nyíregyháza és környéke adok-veszek-beszélgetek
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- RAM topik
- gban: Ingyen kellene, de tegnapra
- Dell Precision munkaállomások
- További aktív témák...
- Microsoft licencek a legolcsóbban - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Windows 10 Home COA fizikai licencek kiárusítás ingyenes szállítással