Har brug for en vba kode, der kan finde et varenr. i en kolonne, og slette rækken hvori varenumret befinder sig .
http://gupl.dk/709233/
1. Fjern arkbeskyttelse i ark2 (arknavn skal kunne ændres i koden)
2. Indtastet varenr. i A1 (celleplacering skal kunne ændres i koden)
3. Find varenumret i kolonne A i ark2 (kolonnenr. & arknavn skal kunne ændres i koden)
4. Popupbox med teksten "Vil du slette"
5. Slet rækken i ark2 hvori varenumret findes (arknavn skal kunne ændres i koden)
6. Beskyt ark2 (arknavn skal kunne ændres i koden)
Fik hjælp til en kode som virker i oploadet fil, men har problemer med at ændre arknavn, kolonne & celleplacering i andre filer, kan nogen hjælpe med at ændre koden eller komme med en forklaring på hvor og hvordan jeg kan ændre i koden? På forhånd tak.
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
skal_fjernes = ActiveCell
maxnr = Application.WorksheetFunction.CountA(Ark2.Range("A:A"))
For t = 2 To maxnr
If skal_fjernes = Ark2.Cells(t, 1) Then
x = MsgBox("Vil du slette " & skal_fjernes & Chr$(13) & Chr$(13) & "Klik OK for at fjerne", vbOKCancel)
Exit For
End If
Next
If x = 1 Then
Ark2.Unprotect
Ark2.Cells(t, 1).EntireRow.Delete
Ark2.Protect
End If
End If
End Sub