Soru A ile d arasındaki satırı silme

[mustafaayd]

Merhabalar ,

Aşağıda paylaştığım kodda Satırı tamamen silmektedir ben isesadece a ile d satırınıctrl+ (-) yaparak Shift cells up yaptırmak istiyorum konu hakkında desteklerinizi rica ederim.



Sub ip_sil()

Dim ip As String

ip = InputBox("Silinecek Hostname adını girin", "Kayıt silme : HOSTNAME")

If WorksheetFunction.CountIf(Worksheets("data").Range("B:B"), ip) < 1 Then
MsgBox ("Kayıt bulunamadı. Böyle bir kayıt yok")
Exit Sub
Else
Z = WorksheetFunction.Match(ip, Worksheets("data").Range("B:B"), "0")
Worksheets("data").Rows(Z).Delete
MsgBox ("Hostname Silinmiştir")

End If


End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
makronuzda
Worksheets("data").Rows(Z).Delete
yerine
Range("A"&(z) & ":" & "D" &(z).Select
Selection.Delete Shift:=xlUp
koyarak deneyiniz
iyi çalışmalar

 

[Tevfik_Kursun]

Merhaba,

Sub ip_sil()
    Dim ip As String
    ip = InputBox("Silinecek Hostname adını girin", "Kayıt silme : HOSTNAME")
        If WorksheetFunction.CountIf(Range("B:B"), ip) < 1 Then
            MsgBox ("Kayıt bulunamadı. Böyle bir kayıt yok")
            Exit Sub
          Else
            Z = WorksheetFunction.Match(ip, Range("B:B"), 0)
'            Worksheets("data").Rows(Z).Delete
            Range("A" & (Z) & ":" & "D" & (Z)).Select
            Selection.Delete Shift:=xlUp
        End If
End Sub

bu haliyle deneyin lütfen,
iyi çalışmalar

 

[mustafaayd]

Teşekkür edeirm kapanabilir.