-
- Destek
-
-
Özel Arama
![]() |
Tarkan VURAL yazdı:İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.
- Kod: Tümünü seç
Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Value Then
bul.Select
Selection.EntireRow.Delete
For i = 2 To Range("a65536").End(3).Row
Cells(i, 1).Value = i - 1
Next i
End If
Next bul
End Sub
Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Value Then
bul.Offset(0, -1).Activate
bul.Offset(0, 1).Value = TextBox1.Value
bul.Offset(0, 2).Value = TextBox2.Value
bul.Offset(0, 3).Value = TextBox4.Value
End If
Next bul
End Sub
Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.
Tarkan VURAL yazdı:İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.
- Kod: Tümünü seç
Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Value Then
bul.Select
Selection.EntireRow.Delete
For i = 2 To Range("a65536").End(3).Row
Cells(i, 1).Value = i - 1
Next i
End If
Next bul
End Sub
Süper bir örnek olmuş. çok teşekkürler Tarkan Bey şkşk
Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Value Then
bul.Offset(0, -1).Activate
bul.Offset(0, 1).Value = TextBox1.Value
bul.Offset(0, 2).Value = TextBox2.Value
bul.Offset(0, 3).Value = TextBox4.Value
End If
Next bul
End Sub
Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.
Tarkan VURAL yazdı:İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.
- Kod: Tümünü seç
Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Value Then
bul.Select
Selection.EntireRow.Delete
For i = 2 To Range("a65536").End(3).Row
Cells(i, 1).Value = i - 1
Next i
End If
Next bul
End Sub
Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Value Then
bul.Offset(0, -1).Activate
bul.Offset(0, 1).Value = TextBox1.Value
bul.Offset(0, 2).Value = TextBox2.Value
bul.Offset(0, 3).Value = TextBox4.Value
End If
Next bul
End Sub
Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.
lifeislove yazdı:Öncelikle Merhabalar.
Combobox change ile excel hücresindeki verileri textboxlara çağırıyoruz. Ancak textboxlara gelen verileri değiştirip aynı hücre üzerine yazdırabiliyor muyuz ben bunu bir tütlü beceremedim.
Bu konuda yardımlarınızı bekliyorum şimdiden teşekkürler.
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir