-
- 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.
osmanlixxx yazdı: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
ŞİFREYİ UNUTMUŞUM ŞİFRE:2212
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 Bey Merhaba,
Yapmış olduğunuz çalışmanın üzerinde biraz değişikliler yapmaya çalıştım ama bir yerde hata yapıyorum bulamıyorum. Yardımcı olabilirseniz çok sevinirim. Dosya ektedir.
Teşekkürler iyi çalışmalar.
Dim i As Byte
Dim i As Integer
Dim i As Integer
osmanlixxx yazdı:Private Sub Label8_Click()
- Kod: Tümünü seç
Dim bul As Range
For Each bul In Sayfa9.Range("b2:b" & Range("b65536").End(3).Row)
If bul = ComboBox1 Then
bul.Offset(i, -1).Activate
bul.Offset(i, -3) = TextBox1
bul.Offset(i, 2) = TextBox2
bul.Offset(i, -1) = TextBox3
bul.Offset(i, 3) = TextBox4
TextBox4 = Format(TextBox4, "dd.mm.yyyy")
bul.Offset(0, 15) = TextBox5
bul.Offset(0, -2) = TextBox6
bul.Offset(0, -1) = TextBox7
bul.Offset(0, 1) = TextBox8
bul.Offset(0, 22) = TextBox9
bul.Offset(0, 10) = TextBox10
bul.Offset(0, 23) = TextBox11
bul.Offset(0, 19) = TextBox12
bul.Offset(0, 24) = TextBox13
bul.Offset(0, 25) = TextBox14
bul.Offset(0, 12) = TextBox15
bul.Offset(0, -4) = TextBox16
bul.Offset(0, 26) = TextBox17
bul.Offset(0, 27) = TextBox18
bul.Offset(0, 20) = TextBox19
bul.Offset(0, 28) = TextBox20
bul.Offset(0, 5) = TextBox21
bul.Offset(0, 29) = TextBox22
bul.Offset(0, 4) = TextBox23
bul.Offset(0, 13) = TextBox24
bul.Offset(0, 16) = TextBox25
bul.Offset(0, 17) = TextBox26
bul.Offset(0, 21) = TextBox27
bul.Offset(0, 6) = TextBox28
TextBox28 = Format(TextBox28, "dd.mm.yyyy")
bul.Offset(0, 8) = TextBox29
TextBox29 = Format(TextBox29, "dd.mm.yyyy")
bul.Offset(0, 7) = TextBox30
bul.Offset(0, 30) = TextBox31
bul.Offset(0, 31) = TextBox32
Else
TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
End If
Next bul
If TextBox9.Value <> "" Then
İmage6.Picture = LoadPicture("d:\PBS\RESİMLER" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing
End If
Next i
End Sub
Bu kodları eklediğimde "next without for" mesajı çıkıyor hangi kodu bitirmemişim bi inceleyebilir misiniz.
For Each bul In Sayfa9.Range("b2:b" & Range("b65536").End(3).Row)
For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir