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

• #36658 Delila_1 veterán p5quser #36657

  Új Válasz 2017-11-30 13:48:38 #36658

  Ú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 p5quser #36657 üzenetére

  Meg kell keresni a Szlazo lap A oszlopában az első üres sort, és ezt kell megadni a beillesztés helyeként.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ide As Long
If Not Intersect(Target, Range("A1:A2637")) Is Nothing Then
Ide = Sheets("Szlazo").Range("A" & Rows.Count).End(xlUp).Row + 1
Cancel = True
Target.Copy Destination:=Sheets("Szlazo").Range("A" & Ide)
Sheets("Szlazo").Select
ActiveCell.Offset(0, 2).Select
End If
End Sub

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