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

• #51327 Fferi50 Topikgazda _NCT #51325

  Új Válasz 2023-08-16 23:41:18 #51327

  Ú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 _NCT #51325 üzenetére

  Szia!
  " ha valahol azt látod, hogy 17-31-ig zárva van valami, akkor nem hagyod ki a 17-et, hanem azt is beleszámolod a zárva tartott napok közé."
  Ebben teljesen igazad van, csakhogy a függvény súgója szerint
  "az Excel a vég_dátum – kezdő_dátum művelettel számítja ki a két dátum közötti napok számát."
  Ez van bele "égetve", ezt kell figyelembe venni a képlettel való számolásainknál. Tehát, ahogy az előttem szóló is írta, ha a kezdő napot is bele szeretnéd számolni, hozzá kell adni az eredményhez 1-et.
  Üdv.

• #51326 lappy őstag _NCT #51325

  Új Válasz 2023-08-16 20:56:44 #51326

  Ú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

  

  lappy

  őstag

  válasz _NCT #51325 üzenetére

  Adjal hozzá +1 napot

• #51324 Fferi50 Topikgazda _NCT #51323

  Új Válasz 2023-08-16 20:08:52 #51324

  Ú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 _NCT #51323 üzenetére

  Szia!
  "ő azt mondja, hogy pl 08.17 és 08.31 között 14 nap van, ami a valóságban 15."
  Szerinted hogyan lehetne a 31-17 kivonás értéke 15?
  Az Excel pont ugyanúgy számol a dátumokkal, mint a számokkal - mivel a dátumokat egyébként számokként ábrázolja.
  Amúgy hány nap is van hátra 17 -től 31-ig?
  Üdv.

• #20143 Mutt senior tag _NCT #20054

  Új Válasz 2014-01-18 19:14:14 #20143

  Ú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

  

  Mutt

  senior tag

  válasz _NCT #20054 üzenetére

  Hello,

  Megkésve, de vmi ilyen kóddal lehet automatizálni a feladatot.

  Sub Masol()
  Dim rngForras As Range
  Dim wsTarget As Worksheet
  
  'kijelöljük a forrás lapot
  Set rngForras = ActiveSheet.Cells
  'ha csak az aktuális tartomány kell akkor
  'Set rngForras = ActiveSheet.Cells.CurrentRegion
  
  'új lapot hozunk létre
  Set wsTarget = ThisWorkbook.Worksheets.Add(after:=Worksheets(Worksheets.Count))
  
  'másoljuk a forrást az új helyre
  rngForras.Copy
  
  With wsTarget
  Application.ScreenUpdating = False
  Dim vLastRow
  Dim i As Long
  Const DataCol As String = "C"
  Const StartRow = 2
  
  'beíllesztjük a forrást
  .Paste
  
  'kikeressük az utolsó sort
  vLastRow = .Cells(.Rows.Count, DataCol).End(xlUp).Row
  
  'beszúrás előtt számoljuk az F és G oszlop különbségét és M oszlopba tesszük, hasonló módon N-be is tudod tenni
  .Range("M" & StartRow).Resize(vLastRow - StartRow + 1).FormulaR1C1 = "=RC[-7]-RC[-8]"
  'a képleteket számmá alakítjuk
  .Range("M" & StartRow).Resize(vLastRow - StartRow + 1) = .Range("M" & StartRow).Resize(vLastRow - StartRow).Value
  
  'elindutjuk a keresést alulról felfelé menve
  For i = vLastRow To 2 Step -1
  'ha nem egyezik, akkor beszúrunk egy sort
  If .Cells(i, DataCol).Value <> .Cells(i - 1, DataCol).Value Then
  .Rows(i).Insert
  'a számlálót is frissítenünk kell mert eggyel több sorunk lett
  i = i - 1
  End If
  Next i
  Application.ScreenUpdating = True
  End With
  
  End Sub

  üdv.

• #20068 _NCT addikt _NCT #20054

  Új Válasz 2014-01-13 19:13:53 #20068

  Ú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

  

  _NCT

  addikt

  válasz _NCT #20054 üzenetére

  Valaki?

  Hogy tudom makróval 2 oszlop celláit kivonni egymásból?

• #20054 _NCT addikt _NCT #20053

  Új Válasz 2014-01-12 12:05:56 #20054

  Ú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

  

  _NCT

  addikt

  válasz _NCT #20053 üzenetére

  Nos netről kikukáztam a megoldást, szerintem egész jó így:

  Sub InsertRowsAtValueChangeColumnC()
  Dim X As Long, LastRow As Long
  Const DataCol As String = "C"
  Const StartRow = 2
  LastRow = Cells(Rows.Count, DataCol).End(xlUp).Row
  Application.ScreenUpdating = False
  For X = LastRow To StartRow + 3 Step -1
  If Cells(X, DataCol).Value <> Cells(X - 1, DataCol) Then Rows(X).Insert
  Next
  Application.ScreenUpdating = True
  End Sub

  Már csak azt kellene megoldani a makróban, hogy hasonlóképp pl az F és G oszlop értékeit vonja ki egymásból és írja az M és N oszlopba az eredményeket.

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