Çalışma sayfasında belirli Hücre aralıklarında( Kaydetme / Silme/ Kaydetme)

[taseraydin]

Excel Çalışma sayfasında data adlı sayfasının C8:E21 hücre aralıgında ( Kaydetme / Silme/ Kaydetme) işlemi yapmam gerekiyor ancak;
kaydetme işlemini yapabildim ancak silme ve değiştirme işlevini yapamıyorum
yardımcı olurmusunuz

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton51_Click()
Worksheets("data").Select
Range("c8").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = ComboBox1.Text
ActiveCell.Offset(0, 1).Value = TextBox1.Text
MsgBox "Kaydedildi..."
End Sub
Private Sub CommandButton55_Click()
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1) = TextBox1.Value
End Sub
Private Sub CommandButton56_Click()
ComboBox1.Value = ""
TextBox1.Value = ""
ComboBox1.SetFocus
End Sub
Private Sub sendsil_Click()
[c8:e21].ClearContents
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "data!c8:c21"
End Sub
Private Sub ComboBox1_Change()
Dim sa As Integer
    For sat = 2 To Tabelle3.Cells(65536, "c").End(xlUp).Row
        If Tabelle3.Cells(sat, "c") Like "*" & ComboBox1 & "*" Then
            TextBox1 = Tabelle3.Cells(sat, "e").Value
            Tabelle3.Cells(sat, "c").Activate
        End If
    Next
End Sub

 

[Husgvarna]

Private Sub sendsil_Click()
[c8:c21] = Empty
End Sub
format gerekmiyorsa deneyin.

 

[taseraydin]

ilginize teşekür ederim
ancak
zannedersem ben tam olarak anlatamadım
comboxtan sadece secilen veriyi değiştirip veya o veriyi silme işlemi gerekiyor
göndermiş olduğunuz kodlar
aralığın tamamını siliyor, ayrıca değiştir işlemini yapmadı

 

[N.Ziya Hiçdurmaz]

yanıt

Eki inceleyiniz