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

• #29193 Delila_1 veterán irodakukac #29192

  Új Válasz 2015-10-26 13:17:18 #29193

  Ú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 irodakukac #29192 üzenetére

  A lenti makrót az Összes könyvelési adat lapodhoz rendeld. Ennek a módja szerepel a Téma összefoglalóban.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ide As Long, sor As Long
  If Target.Column = 20 Then
  sor = Target.Row
  If Range("H" & sor) = "készpénz" Then
  ide = Application.WorksheetFunction.CountA(Sheets("házipénztár").Columns(1)) + 1
  Rows(sor).Copy Sheets("házipénztár").Range("A" & ide)
  End If
  End If
  End Sub

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