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

• #45413 repvez addikt Delila_1 #45412

  Új Válasz 2020-11-22 15:59:52 #45413

  Ú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

  

  repvez

  addikt

  LOGOUT blog

  válasz Delila_1 #45412 üzenetére

  Köszi. igy muködi k arra a cellára
  ÉS , hogy tudom ezt többszörözni?
  Gondolom, hogy az
  Valami ilyesmi kellene:
  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ide As Long
    If Target.Address = "$H$2" Then
        If Target1.Address = "$H$3" Then
        With Sheets("Munka2")
            ide = .Range("A" & Rows.Count).End(xlUp).Row + 1
            .Range("A" & ide) = Date
            .Range("B" & ide) = Target
 .Range("C" & ide) = Target1
        End With
    End If
End Sub

Csak mert igy hibát kapok

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