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

• #12671 Delila_1 veterán háma #12670

  Új Válasz 2012-01-23 09:41:18 #12671

  Ú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 háma #12670 üzenetére

  Szia Marci!

  Jó sokára jelentkeztél az újabb problémával. Itt a kibővített makró:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim név$, email$, sor%, usor%, oszlop As Integer, lapnév$
  oszlop = Target.Column
  
  If Target.Column > 2 And Target.Column < 6 Then
  Select Case oszlop
  Case 3
  lapnév$ = "Másolat_1"
  Case 4
  lapnév$ = "Másolat_2"
  Case 5
  lapnév$ = "Másolat_3"
  End Select
  
  név$ = Cells(Target.Row, 1).Value
  email$ = Cells(Target.Row, 2).Value
  usor% = Sheets(lapnév$).Range("A" & Rows.Count).End(xlUp).Row + 1
  
  If IsEmpty(Target) Then
  For sor% = 2 To usor%
  If Sheets(lapnév$).Range("A" & sor%) = név$ And _
  Sheets(lapnév$).Range("B" & sor%) = email$ Then
  Sheets(lapnév$).Rows(sor%).Delete Shift:=xlUp
  Exit Sub
  End If
  Next
  Else
  Sheets(lapnév$).Cells(usor%, 1) = név$
  Sheets(lapnév$).Cells(usor%, 2) = email$
  End If
  End If
  End Sub

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