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

• #39495 Delila_1 veterán littleNorbi #39494

  Új Válasz 2018-10-30 17:15:58 #39495

  Ú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 littleNorbi #39494 üzenetére

  Másold a lap moduljába a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim lapnev, ide As Long

If Target.Column = 4 And Target.Value <> "" And Target.Count = 1 Then
On Error Resume Next
Set lapnev = Sheets(Target.Value)
If Err.Number <> 0 Then
MsgBox "Nincs " & Target & " nevű lap", vbCritical
On Error GoTo 0
Exit Sub
End If
ide = Sheets(lapnev).Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Target.Row & ":D" & Target.Row).Copy Sheets(lapnev).Cells(ide, 1)
End If
End Sub

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