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

• #26179 Louro őstag Locsi #26178

  Új Válasz 2015-03-23 16:43:57 #26179

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Locsi #26178 üzenetére

  Uh, jobban megnézve a kódot szerintem csak a módosítás dátumával számol.

  Mivel minden kódsor különböző időpontban fut, gondolom elég futtatásonként egyszer megnézni az időpontot. Ha kell, akkor pedig kérd le "nyugodtan" a rendszeridőt.
  Na nemsokára lejár a munkaidőm....Még azt kellene megnézni, hogy magában a táblázatban van -e parancs, amivel le tudod kérni az időpontot, mint Excel esetén a =TODAY() . Ha van, akkor esetleg egy cellába tárolni :$

• #26177 Louro őstag Locsi #26175

  Új Válasz 2015-03-23 16:24:11 #26177

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Locsi #26175 üzenetére

  Hát elég gagyi megoldást találtam a gugli segítségével, de jobb, mint a semmi. Ha sűrűn kell dátum, - amit nem javaslok, mert lassít -, akkor egy változóba tedd ki egyszer és azzal dolgozz.

  Forrás:[link]

  Simple macro
  =
  Timestamp in A1 in Sheet1
  =
  Code:
  
  Sub timestamp
  oDoc = thiscomponent
  oSheet = oDoc.Sheets(0)
  oCell = oSheet.getCellRangeByName("A1")
  oCell.String = oDoc.DocumentInfo.ModifyDate.Day _
  & "/" & oDoc.DocumentInfo.ModifyDate.Month _
  & "/" & oDoc.DocumentInfo.ModifyDate.Year _
  & " " & oDoc.DocumentInfo.ModifyDate.Hours _
  & ":" & oDoc.DocumentInfo.ModifyDate.Minutes
  End Sub

• #26173 Louro őstag Locsi #26172

  Új Válasz 2015-03-23 16:03:39 #26173

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Locsi #26172 üzenetére

  Hát amit találtam az nem jó hír. Vannak átfedések, de nem 100%-os. Szóval van esély, hogy ugyanazokat a makrókat tudod futtatni, de nem garancia.

  Forrás: [link]

• #26149 Delila_1 veterán Locsi #26148

  Új Válasz 2015-03-20 18:01:43 #26149

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Locsi #26148 üzenetére

  Örülök neki, szívesen.

• #26147 Delila_1 veterán Locsi #26146

  Új Válasz 2015-03-20 15:39:02 #26147

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Locsi #26146 üzenetére

  Kipróbáltad?

• #26145 Delila_1 veterán Locsi #26139

  Új Válasz 2015-03-20 14:31:10 #26145

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Locsi #26139 üzenetére

  Rosszul írtam a két oszlop formátumát.

  A G és H oszlop formátuma

  (p):mm, jobbra behúzva, behúzás 1.
  A szögletes zárójelek nélkül nem mutatná az eltelt órákat a két időpont között. Ezzel igen, percbe átszámolva.

  Szerk.: a szögletes zárójelet a fórummotor lekerekíti, de a szögletes kell.

• #26140 Delila_1 veterán Locsi #26139

  Új Válasz 2015-03-20 13:32:58 #26140

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Locsi #26139 üzenetére

  A kezdés idejét a rajzszám beírásához rendeltem. Ha az A-hoz is beírnám, akkor eltelik némi idő (pláne, ha közben az adatrögzítő megiszik egy kávét) a rendelés bevitele után, és úgyis felülírná az egyszer már beírt kezdést.

  A D, G, és H oszlop megadását is csak az F-hez kötöttem, nincs értelme az E-hez is megadni.

  A G és H oszlop formátuma p:mm, jobbra behúzva, behúzás 1.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Value = "" Then Exit Sub
  
  If Target.Column = 2 Then Cells(Target.Row, "C") = Now
  If Target.Column = 6 Then
  Cells(Target.Row, "D") = Now
  Cells(Target.Row, "G") = Cells(Target.Row, "D") - Cells(Target.Row, "C")
  Cells(Target.Row, "H") = Cells(Target.Row, "G") / Cells(Target.Row, "F")
  End If
  End Sub

• #26138 Delila_1 veterán Locsi #26132

  Új Válasz 2015-03-20 13:04:11 #26138

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Locsi #26132 üzenetére

  Induljunk el a kályhától.
  Mikor mit csináljon a makró?

  Beírod a rendelés számát, majd a rajzszámot. Ekkor írja be a kezdés idejét a C-be?
  Mikor írja be a befejezés idejét a D-be? Mikor az F-ben megadod a legyártott darabok számát?

  A G2 képlete =D2-C2 legyen, percben megadva, és ebből számolja ki a H a darabidőt? Ezt a darabszám megadásakor (F) végezheti.

• #26134 Louro őstag Locsi #26132

  Új Válasz 2015-03-20 12:22:45 #26134

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Locsi #26132 üzenetére

  Hát erre jó az én részem. De mondjuk lehet annyit változtatnék, hogy a makrót betenném gyorsbillentyűre vagy egy gombot tennék ki a munkalapra, ami által újra számolná a sorokat.

  Jah és Delila megoldása pedig elegánsabb. Szóval jónak kell lennie. Hisz összidőre egyszerű különbségképzéssel, az egy darabra jutó átlagidő pedig osztással.

  De lehet ebéd utána kóma miatt félreértettem, de majd jönnek még páran és segítenek.

• #26114 Delila_1 veterán Locsi #26110

  Új Válasz 2015-03-20 10:05:01 #26114

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Locsi #26110 üzenetére

  "Ez a számla nyilvános linkeket generál túl nagy a forgalom, és ideiglenesen nem elérhető!"

• #26113 Louro őstag Locsi #26110

  Új Válasz 2015-03-20 10:04:39 #26113

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Locsi #26110 üzenetére

  Akkor csalok - sajnos letölteni nem tudom a csatolmányt.

  Szerk.: Nincs is ciklus az én kiegészítésemben. Én csak a ciklus után tettem be két sort. Nem kellene ettől bergadnia.

  Range("G1:G65535") = "=HA(D1="""","""",D1-C1)" 'Angol excelben =IF(.....) Itt csak annyit vizsgálok, hogy D üres -e.
  Range("H1:H65535") = "=HAHIBA(F1/G1,"""")" 'Angol excel esetén "=IFERROR(F1/G1,"""")"

• #26109 Louro őstag Locsi #26108

  Új Válasz 2015-03-20 09:28:13 #26109

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Louro

  őstag

  válasz Locsi #26108 üzenetére

  EGy próbát megér, ha jól értem a feladatot.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Lrow As Single
  Dim AStr As String
  Dim Value As Variant
  If Not Intersect(Target, Range("A:B")) Is Nothing Then
  For Each Value In Target
  If Value <> "" Then
  Range("C" & Value.Row).Value = Now
  End If
  Next Value
  End If
  If Not Intersect(Target, Range("E:F")) Is Nothing Then
  For Each cl In Intersect(Target, Range("E:F")).Cells
  Cells(cl.Row, "D").Value = Now()
  Next
  End If
  Range("G1:G"&ActiveSheet.Usedrange.Rows.Count) = "=D1-C1"
  Range("H1:H"&ActiveSheet.Usedrange.Rows.Count) = "=HAHIBA(F1/G1,"""")" 'Angol excel esetén "=IFERROR(F1/G1,"""")"
  End Sub

• #26101 Fferi50 Topikgazda Locsi #26099

  Új Válasz 2015-03-19 21:16:09 #26101

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Locsi #26099 üzenetére

  Szia!
  " ha az f mezőbe beírok valamit, akkor a d mezőbe beírja az aktuális dátumot, és időt."
  Remélem oszlopra gondoltál...
  If Not Intersect(Target, Range("F:F")) Is Nothing Then
  For Each cl In Intersect(Target, Range("F:F")).Cells
  Cells(cl.Row, "D").Value = Now()
  Next
  End If

  Üdv.

  (Elkerülheted a "hangulatjeleket", ha használod az alul levő programkód gombot.)

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