Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- bambano: Bambanő háza tája
-
LOGOUT
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
-
válasz
Delila_1
#35617
üzenetére
12 órás munkarend van, így a nappalos eleje és vége, az éjszakás műszak vége és eleje
A képen amit küldtem, a jobb oldalon ott van példának egy hónap, pl az júniusi, hogy mikor melyik műszak dolgozik (Vízszintesen az A, B , C, D mint műszak jelölés, függőlegesen pedig a napok) Így van két nap meló délelőtt, aztán két nap pihi, aztán megint két nap meló délelőtt, kettő pihi, majd két nap éjszaka, kettő pihi, megint két nap és végül két nap éjszaka.
Megnéztem a képletet, amit küldtél, de abból nem tudom hogy tudnám megcsinálni tovább
-
-
válasz
Delila_1
#35613
üzenetére
Köszönöm, valóban
(Office 2008-ban PERCEK van, PERC helyett )
De mégsem lesz ez a jó megoldás.
Amit meg szerettem volna oldani ezzel, hogy van egy adat halmom időpontokkal, és azt szeretném egy beosztással összepárosítani.
Tehát hogy a mellékelt képen a B oszlopba (vagy akárhová) írja oda, hogy melyik műszaknak felel meg az adott időpont.
A ami nehezítés, hogy a Nappalos műszak 5:30-tól van 17:30-ig.
Milyen megoldással lehetne ezt kivitelezni?
-
Sziasztok,
Képlettel szeretnék idő alapján feltételeket megadni
pl:=HA(ÉS($L$1>N2;$K$1<N2);"DE";"EJ")
Ahol L1-et és K1-et én adtam meg 10:00 formában
Viszont az adataim egy adatbázisból exportált eredmény tábla, ahol pedig a dátum teljes, tehát2017.06.30 17:21:53N2 pedig egy formázott cella időre, de óó:pp nem segített rajtam. Mi ilyenkor a megoldás?
Előre is köszönöm -
#33373
Pulsar
veterán
Juditta_56
#33372
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. -
-
Sziasztok,
szenvedek egy pár napja egy problémával, de nem jövök rá a megoldásra.
Adott egy szám egy táblában. Ezt a számot átmásolom egy másikba makróval. Átmásolás után a képen látható "hiba" jelenik meg. A másolt cella, és a hely, ahová másolom cella is számra van formázva.
Ha itt rányomok arra, hogy átalakítás számmá, akkor minden kafa. De ezt a lépést szeretném valahogy makróval kiváltani, mert sok sok szám van.
Van erre ötlete valakinek?
Előre s köszönöm
-
lappy, Fire/SOUL/CD:
köszi, excelbe megoldottamde egy dolgot nem tudok.
Vannak benne időadatok:2012-05-14T23:01:38Z
19.20291866 47.48027567
2012-05-14T23:01:39Z
19.202866 47.48028335
2012-05-14T23:01:40Z
19.202859 47.48027502
2012-05-14T23:01:41Z
19.20286322 47.48027493
ebből ezt szeretném:
00:00:01
19.20291866 47.48027567
00:00:02
19.202866 47.48028335
00:00:04
19.202859 47.48027502
00:00:05
19.20286322 47.48027493
tehát az első érték lenne a 00:00:01 és utána annyival növelni amennyi a következő kettő közötti különbség. -
Sziasztok!
Segítséget szeretnék kérni.
Van egy adatsorom:
<when>2012-05-14T23:00:07Z</when>
<gx:coord>19.2030389 47.48018636 183.8000030517578</gx:coord>
<when>2012-05-14T23:01:11Z</when>
<gx:coord>19.20283078 47.48024977 205.1999969482422</gx:coord>
<when>2012-05-14T23:01:13Z</when>
<gx:coord>19.20279616 47.48024885 208.5</gx:coord>
<when>2012-05-14T23:01:14Z</when>
<gx:coord>19.20279683 47.48024895 209.0</gx:coord>ebből szeretnék egy ilyet kapni:
2012-05-14T23:00:07Z 19.2030389 47.48018636
2012-05-14T23:01:11Z 19.20283078 47.48024977
2012-05-14T23:01:13Z 19.20279616 47.48024885
2012-05-14T23:01:14Z 19.20279683 47.48024895Persze ez az adat mennyiség elég hosszú, és mivel sok ilyet kéne csinálom, arra gondoltam, hogy egy macro lenne talán a jó megoldás. (De nem ragaszkodom hozzá
) -
Sziasztok!
Van olyan fügvény, vagy valami amivel ki lehet iratni a sheet nevét. Persze ez önmagában nekem kevés. van egy halmozott fkeres fügvényem, ami három sheet-en keres így:
=HA(HIBÁS(FKERES(AA4;'C:\keres.xls]Line 8'!$A$4:$T$1700;4;HAMIS));HA(HIBÁS(FKERES(AA4;'C:\keres.xls]Line 9'!$A$4:$T$1700;4;HAMIS));FKERES(AA4;'C:\keres.xls]Line 11'!$A$4:$T$1700;4;HAMIS);FKERES(AA4;''C:\keres.xls]Line 9'!$A$4:$T$1700;4;HAMIS));FKERES(AA4;''C:\keres.xls]Line 8'!$A$4:$T$1700;4;HAMIS))
Azt szeretném, hogy egy cellába írja ki, hogy melyik sheet-en találta meg a AA4-es cella értékét. Lehet ilyet?
-
válasz
Delila_1
#11528
üzenetére
oké, de közbben változott kicsit a feladat
a gond, az, hogy a dátum nem jó helyen van, vagyis amire nekem szükségem lenne, hogy ahol már dátumilag mást írunk, ott más is legyen, ne arra a napra vegye. Tehát a 20. sor még 2011-10-01 de a 21. sor már értelemszerűen már 2011-10-02
Esetleg valamilyen makróval ez megoldható? -
Sziasztok.
Ismét a segitségeteket szeretném kérni.
Van egy táblám aminek A oszlopa üres, csak A1-ben van egy kezdö dárum. Pl 2011-10-01
B oszlopban e mellett lefele idöponrok vannak, pl 8.00, stb
Azt szeretnem makroval, hogy a b oszlopot figyelve mindaddig irja ki ugyan azt a datumot, amit A1-be, ameddig az ora el nem eri a 0.00-t ha elerte, novelje meg egy nappal, es folyassa tovabb. Remelem erthetoen sikerult fogalmaznom :-) -
#11376
Pulsar
veterán
m.zmrzlina
#11375
válasz
m.zmrzlina
#11375
üzenetére
bocs, parancsolj itt van egy példának:
[link]és amit szeretnék belőle:
sallang nem kell, üres sorok sem a dátum egységesen éééé.hh.nn. ha lehet text cella típusba
és a szóközöl eltávolítása.
lehetséges ez? -
#11374
Pulsar
veterán
m.zmrzlina
#11371
válasz
m.zmrzlina
#11371
üzenetére
m.zmrzlina, perfag.
Elosszor is koszonom a valaszotokat.Vegul is nem titok. A police.hu-n fent leveo trafi adatokat akarom exelbe rakni. Ott egy html alapu tablazatba van rakva. Direkt, vagy sem szinte alig van ugyan az ketszer leirva, ha tobb havi eredmenyt nezunk. Vagy az eleen vagy a vegen van tobb szokoz, illetve egy egy betu el van utve.
Azert akarnam makroba, mert tobb muveletet szeretnek egymas utan elvegezni. Tehat csak bemasolom az adatokat, es kapok eredmenykent egy rendes adathalmazt. Jelen formajaban feldolgozhatatlan, ha mondjuk statisztikat szeretnek belolecsinalni. -
Sziasztok!
Szeretnek irni egy olyan markot, ami formaz.
Tehst be vsn egy ossze vissza formazott adat halmazom, amit egy forma vilagra kene hoznom. Eddig nem is olyan nagy gond. A poblemam ott kezdodik, hogy a 600 sorbol van egy csomo, aminel a cellakban a szoveg elott, es / vgy mogott egy vagy tobb space le van utve. Ezeket hogyan tudnam eltavolitani? -
csak lenne még egy bajom
szeretnék egy időt két féle képen megjeleníteni.
így:10/22/2010 és így is:10_22_2010egy egy külön cellában
azt szeretném, hogy ne keljen mindig át írni egyesével, ezért egy harmadik tálcába raknám írnám be a dátumot. Viszont a probléma az, hogyha format cell-el beállítom, akkor a következő képlet ami erre hivatkozik nem működik. Tehát text-ként kéne bele az adat
Van esetleg erre ötletetek? -
megvan a megoldás :
Sub loggenerator()
Dim PageName As String, filename As String, utvonal As String
utvonal = "c:\Documents and Settings\BHUkkocs\My Documents\LOG\aaa\"
filename = utvonal & Sheets("generator").Range("N4").Value
PageName = filename & "."
Open PageName For Output As #1
MyStr = Cells(4, 13).Value
Print #1, MyStr
Close #1
End SubKöszi a helpet srácok!
-
sziasztok!
hát nézegettem, próbálgattam ezeket de valami nem ok.
Delila_1 megoldása lenne eddig a legjobb. Bár az sem az igazi. Ott a gondom, hogy magát a munkafüzetet menti el az excel egy txt file-ba. Nekem az kellene, hogy:
adat ami a file-ba kéne hogy kerüljön az generator sheet M4-es cellában van. És a file név amiként ezt el kéne menteni ugyanezen a sheet-en a N4 cellában van.Fire/SOUL/CD igen, ezt ismerem,
csak azt nem tudom hogyan tudnék megnyitni egy üres txt file-t, majd mentéskor elnevezni, illetve adatok írni bele.ja, és még annyi rafkó lenne a dologban, hogy kiterjesztés nem kéne a file-nak. Bár ez már a legkevesebb.
-
hát nekem egyértelműnek tünt, de ezek szerint tévedtem
Szóval új fájl-t kéne létre hozni, egy cella értékének nevével, és egy másik cella értékét pedig bele írni.
Nem tudom számít-e, de ezek az értékek mind egy képlet eredményei, tehát nem fix érték, szöveg.
sajnos nem jön be valamiért az oldal, hátha később sikerrel járok -
-
#8084
Pulsar
veterán
Fire/SOUL/CD
#8078
válasz
Fire/SOUL/CD
#8078
üzenetére
Szia!
Tökéletes, köszönöm szépen!
-
Sziasztok!
Egy kis macro segítséget szeretnék kérni.
Azt szeretném megcsinálni, hogy van egy táblázatom, aminek az A oszlopa tartalmaz mondjuk 5 féle értéket (szöveg). A B oszlop pedig tartalmaz számokat. Azt szeretném, hogy megadok egy értéket akár a makróba is fixen, hogy az A oszlop egyik értékét nézve a hozzá tartozó B oszlop értékeinek az átlagát mondja meg.
Remélem érthető -
Sziasztok!
Egy kis segítséget szeretnék kérni... Van egy könyvtáram a wincsesztere, és van benne 1000 filesom. Azek txt file-ok kiterjesztés nélkül. A txt filesokban mindig ugyamabban a sorrendben vannak adatok ,-vel elválasztva.
Én ezeket az adatokat szeretném sorba beolvasni egy excel file-ba. tehát egy file egy sor, következő file következő sorMeg lehet ezt makróba csinálni?
Ja a filesok nevében nincs rendszer.. tehát vélelen szerűen generált 16 jegyű szám és betű kódok.
-
#6389
Pulsar
veterán
Fire/SOUL/CD
#6386
válasz
Fire/SOUL/CD
#6386
üzenetére
da beugolom ezt a sort írja ki:
If adat = "SPEARS" Then z = z + 1
ha kiskippelem ezt a sort, akkor akövetkezőt
ha így írom:
If adat = "SPEARS" Then
z = z + 1akkor a
if adat = "PEARY/PENSACOLA" Then e = e + 1End If
Next
Sheets("Data").Cells(47, fil) = znext-nél áll meg.next whitout for-al. de van for.
-
válasz
ulrik19
#6385
üzenetére
semmi...
minden nap készítek erről a filesről egy mentést... a tegnapi simán lefut a mai mai adatokkal ne.
Ha a mai adatokat bemásolom a tegnapi reportba akkor az is megáll. Tehát az adatoknál lenne változás, de ott nincs.
a változás az lejet, hogy a 21-es oszlopban az adatokat egy VLOOKUP eredménye.de akkor sem értem mi lenne a gond, hiszen max olyan értékek szerepelnek benne, ami a kritériumoknak nem felel meg, és kész. -
#6382
Pulsar
veterán
Fire/SOUL/CD
#6380
válasz
Fire/SOUL/CD
#6380
üzenetére
hopp.. bocs
most viszont a next whitout for hibával áll meg az END IF utáni nextet bejelölve
e = e + 1
End If
Next <---- ITT ÁLL MEG!
Sheets("Data").Cells(47, fil) = z(#6381) ulrik19 nem, szöveg van, ami generic
-
#6379
Pulsar
veterán
Fire/SOUL/CD
#6378
válasz
Fire/SOUL/CD
#6378
üzenetére
de ez eddig így ment
azét megcsinálom, csak érdekesszerk:
szóval beraktam, és így ezt a hibát kapom:
-
Sziasztok!
van egy macro-m, amit még a Ti segítségetekkel íródott, és tegnap óta, Type Mismatch hibával megáll
a kód ez:
Sub pivot()
Sheets("IDE_MASOLD").Select
Dim sor, z, y, x, w, v, u, t, s, r, q, p, o, n, m, l, k, j, i, h, g, f, e, adat, ossz, fil As Integer
Dim filter_1, filter_2, filter_3 As String
z = 0: y = 0: x = 0: w = 0: v = 0: u = 0: t = 0: s = 0: r = 0: q = 0: p = 0: o = 0: n = 0: m = 0: l = 0: k = 0: j = 0: i = 0: h = 0: g = 0: f = 0: e = 0
filter_1 = Range("Data!C40").Text
If filter_1 = "ALL" Then
filter_1 = "BOARD": filter_3 = "DT BOARD"
End If
For fil = 1 To 25
filter_2 = Sheets("Data").Cells(46, fil)
For sor = 2 To ActiveSheet.UsedRange.Rows.Count
adat = Cells(sor, 21)
If Cells(sor, 4) = filter_1 And Cells(sor, 17) = filter_2 Then
If adat = "SPEARS" Then z = z + 1
If adat = "TRAVIS" Then y = y + 1
If adat = "AZEDA" Then x = x + 1
If adat = "LAGUNA" Then w = w + 1
If adat = "KEY WEST" Then v = v + 1
If adat = "SULLIVAN" Then u = u + 1
If adat = "CORSICA" Then t = t + 1
If adat = "GILLIGAN" Then s = s + 1
If adat = "THURMAN" Then r = r + 1
If adat = "TAHITI" Then q = q + 1
If adat = "YEBISU" Then p = p + 1
If adat = "ZANZIBAR" Then o = o + 1
If adat = "HAWKE" Then n = n + 1
If adat = "BARBADOS" Then m = m + 1
If adat = "CAYMAN" Then l = l + 1
If adat = "LIONS GATE" Then k = k + 1
If adat = "SIBERIA" Then j = j + 1
If adat = "GREAT BELT" Then i = i + 1
If adat = "AMBRASSADOR" Then h = h + 1
If adat = "FOLSOM" Then g = g + 1
If adat = "BONDI/BENZ" Then f = f + 1
If adat = "PEARY/PENSACOLA" Then e = e + 1
End If
Next
Sheets("Data").Cells(47, fil) = z
Sheets("Data").Cells(48, fil) = y
Sheets("Data").Cells(49, fil) = x
Sheets("Data").Cells(50, fil) = w
Sheets("Data").Cells(51, fil) = v
Sheets("Data").Cells(52, fil) = u
Sheets("Data").Cells(53, fil) = t
Sheets("Data").Cells(54, fil) = s
Sheets("Data").Cells(55, fil) = r
Sheets("Data").Cells(56, fil) = q
Sheets("Data").Cells(57, fil) = p
Sheets("Data").Cells(58, fil) = o
Sheets("Data").Cells(59, fil) = n
Sheets("Data").Cells(60, fil) = m
Sheets("Data").Cells(61, fil) = l
Sheets("Data").Cells(62, fil) = k
Sheets("Data").Cells(63, fil) = j
Sheets("Data").Cells(64, fil) = i
Sheets("Data").Cells(65, fil) = h
Sheets("Data").Cells(66, fil) = g
Sheets("Data").Cells(67, fil) = f
Sheets("Data").Cells(68, fil) = e
z = 0: y = 0: x = 0: w = 0: v = 0: u = 0: t = 0: s = 0: r = 0: q = 0: p = 0: o = 0: n = 0: m = 0: l = 0: k = 0: j = 0: i = 0: h = 0: g = 0: f = 0: e = 0
Next
Sheets("Data").Select
Cells(1).Select
End Subhibának ezt a sor adja besárgítva:
If adat = "SPEARS" Then z = z + 1Szerintetek mi lehet a gond?
-
illetve, hogy megáll a 131-es sornál... miért? holott az adatok a 2253-as sorig van benne adat!
Ezt megoldottam
Sub keplet()
Dim usor As Integer
usor = Sheets("IDE_MASOLD").Range("A65000").End(xlUp).Row
Sheets("IDE_MASOLD").Range("U1").Select
Selection.Formula = "=VLOOKUP(E1,PN!A:B,2,0)"
Selection.AutoFill Destination:=Range("U1:U" & usor), Type:=xlFillDefault
End Sub -
válasz
Delila_1
#6189
üzenetére
Szia!
köszi, tök jó!
a kérdésem az léenne, hogy hogyan lehetne megoldani, hogy ne képlet hanem csak az eredmény legyen a cellában? Mert ezért is szerettem volna macro-val megoldani, és nem képlettel!illetve, hogy megáll a 131-es sornál... miért? holott az adatok a 2253-as sorig van benne adat!
-
Sziasztok!
Hogy tudok VLOOKUP-ot futtatni macroba? Konkrétan nem a fügvényt akarnám futtatni, hanem hogy ugyanazt az eredményt kapjam mint a VLOOKUP-al.
Ezt szeretném konkrétan:=VLOOKUP(E:E;PN!A
;2;0)és addig ismételje és írja a U oszlopba az eredményt ameddig az E oszlopban van adat.
-
válasz
ulrik19
#6104
üzenetére
DateLastModified és DateLastAccessed
ezekkel az a baj, hogy az utolsó megnyitás dátumát írja ki, nem pedig az utolsó modosításét!aham, a kód most így néz ki:
Sub masolas_adat()
Dim excel_filename, filename2, kelt As String
excel_filename = ThisWorkbook.Name
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("R:\Dell\Reporting\Production_Daily.xls")
Workbooks.Open FileName:="R:\Dell\Reporting\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
Sheets("Data").Range("A47") = adatfile.DateLastModified
Application.CutCopyMode = False
Windows(filename2).Activate
ActiveWindow.Close
End Sub -
válasz
ulrik19
#6072
üzenetére
Szia!
Látom pörögtök a témán, rendesek vagytok!
Egyébként egyre jobban úgy gondolom, hogy valóban az lehet a gond, hogy amit a server lement annak nincsenek ilyen paraméterei, mert egy linux szerver generálja, és menti le. Én azt hittem, hogy a file atriputumából szerzi az időt, nem pedig egy tulajdonságok részből. Olyat nem lehet?Egyébként most így néz ki a kód. A semmi pedig azt jelenti, hogy lefut a macro és kész, de nem írod ki sehova az időpont.
Sub masolas_adat()
Dim excel_filename, filename2, kelt As String
excel_filename = ThisWorkbook.Name
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("c:\Production_Daily.xls")
Workbooks.Open FileName:="R:\Dell\Reporting\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 -
#6065
Pulsar
veterán
Fire/SOUL/CD
#6040
válasz
Fire/SOUL/CD
#6040
üzenetére
igen, de éppen ez a vicc, hogy a 2010beta alatt jól fut, csak a 2000 alatt nem akar
(#6035) ulrik19 beírtam de semmi... lehet elcsesztem valamit?
-
#6039
Pulsar
veterán
Fire/SOUL/CD
#6034
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
-
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
-
#6028
Pulsar
veterán
Fire/SOUL/CD
#6023
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?
-
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 -
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 -
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
-
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. -
válasz
Delila_1
#5966
üzenetére
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 -
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ó? -
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?
-
#5953
Pulsar
veterán
Fire/SOUL/CD
#5952
válasz
Fire/SOUL/CD
#5952
üzenetére
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 -
#5950
Pulsar
veterán
Fire/SOUL/CD
#5948
válasz
Fire/SOUL/CD
#5948
üzenetére
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!
-
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 -
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.Closeahol 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.
-
válasz
ulrik19
#5838
üzenetére
Szia!
A két táblázat eredménye nem egyezik, cak példa
olyan nincs, hogy több ugyanaz az állomás ugyanabban az időben kétszer szerepel. A G cell az adott paraméterek eredménye: NOof SN = Number of Serial number.
Tehát azt mutatja, hogy adott álomáon Pass-os vagy failos hány darab volt.Milyen minta filest küldjek?
Igazából én ezt már megcsináltam de nagyon bonyolultan. VLOOKUP hegyek, meg makrós másolgatásokból áll az egész, csak nagyon nem szép megoldás. de ezt elküldöm. -
Sziasztok!
El vagyok akadva és segítséget szeretnék kérni.
Konkréten annyira el akadtam, hogy azt sem tudom hogy kezdjek nekia feladat a következő
van egy ilyen táblázat:
És egy ilyet kéne produkálnom belőle:
Egy kis értelmezés. Az A oszlopban vannak az állomás nevek. Ebből van 15 darab.
a kritériumnak meg kell felelni a B oszlopnak, tehát hogy csak azokat a sorokat vegye figyelembe, ahol a B oszlop értéke: BOARD. Ha ez is megvan akkor a következő oszlop ami érdekes, hogy pass-os vagy fail-os. A következő pár oszlop nem érdekes, már csak a két utolsó. Az F oszlopban van az oda írt óra tehát ha 6 akkor az a 6:00-6:59-ig értendő, illetve G oszlopan a hozzá tartozó eredmény.Tudna ebben nekem valaki segíteni?
A képen amit küldtem, a jobb oldalon ott van példának egy hónap, pl az júniusi, hogy mikor melyik műszak dolgozik 
köszönöm! 
6;"1";A1:A6) angol excel
Új hozzászólás Aktív témák
Fferi50- OLED TV topic
- Okos Otthon / Smart Home
- Xiaomi 15T Pro - a téma nincs lezárva
- Milyen házat vegyek?
- Okosóra és okoskiegészítő topik
- Mindenkinél több és erősebb AI gyorsítót ígér Elon Musk
- Diablo IV
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Miért vezet mindenki úgy, mint egy állat?
- Vezeték nélküli fejhallgatók
- További aktív témák...
- BESZÁMÍTÁS! ASRock B650 Steel Legend WiFi R5 8600G 32GB DDR5 500GB SSD RX 7800XT 16GB NZXT H700i
- BESZÁMÍTÁS! Gigabyte Z170X-Ultra Gaming Z170 chipset alaplap garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Eredeti Microsoft Windows 10 / 11 Pro OEM licenc Akciós áron! 64/32 bit Azonnali kézbesítéssel
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest