Değiştir Butonu Hakkında..

[satan22]

Sayın arkadaşlar benim küçük bir sorunum var yardımcı olursanız çok sevinirim. Aşağıda vermiş olduğum kodlarda değiştir dediğim zaman sadece ilk satırdaki bilgileri değiştiriyor. Alt satırlardaki bilgileri bulup değiştir dediğim zaman kod çalışmıyor. koda bakıp yardımcı olabilirmisiniz. Şimdiden teşekkürler..

Private Sub CommandButton4_Click()
Dim bak As Range
    For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
            bak.Select
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(0, 0).Value = TextBox1.Value
    ActiveCell.Offset(0, 1).Value = TextBox2.Value
    ActiveCell.Offset(0, 2).Value = ComboBox3.Value
    ActiveCell.Offset(0, 3).Value = TextBox3.Value
    ActiveCell.Offset(0, 4).Value = TextBox5.Value
    ActiveCell.Offset(0, 5).Value = TextBox6.Value
    ActiveCell.Offset(0, 7).Value = ComboBox2.Value
     Workbooks("ÖEB SON HALİ.XLS").Save
    MsgBox "Verileriniz Başarıyla Değiştirildi", , "KAYIT"
    TextBox1.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
      Unload UserForm3
      UserForm3.Show
         Exit Sub
        End If
   Next bak
End Sub

 

[Orion1]

Aşağıdakini deneyiniz.

Private Sub CommandButton4_Click()
Dim bak As Range
    For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
            bak.Select
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(0, 0).Value = TextBox1.Value
    ActiveCell.Offset(0, 1).Value = TextBox2.Value
    ActiveCell.Offset(0, 2).Value = ComboBox3.Value
    ActiveCell.Offset(0, 3).Value = TextBox3.Value
    ActiveCell.Offset(0, 4).Value = TextBox5.Value
    ActiveCell.Offset(0, 5).Value = TextBox6.Value
    ActiveCell.Offset(0, 7).Value = ComboBox2.Value
     End If
   Next bak
    Workbooks("ÖEB SON HALİ.XLS").Save
    MsgBox "Verileriniz Başarıyla Değiştirildi", , "KAYIT"
    TextBox1.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
      Unload UserForm3
      UserForm3.Show
         Exit Sub

End Sub

 

[satan22]

sayın üstadım emeğiniz için teşekkürler. buton devreye giriyor ama herhangi bir değişiklik yapmıyor. ilk satırda değişiklik oluyodu ama şimdi oda olmuyor..

 

[ozgretmen]

sayın üstadım emeğiniz için teşekkürler. buton devreye giriyor ama herhangi bir değişiklik yapmıyor. ilk satırda değişiklik oluyodu ama şimdi oda olmuyor..

Dosyanızı ekler iseniz isabetli yanıtlar verilebilir...

 

[Orion1]

sayın üstadım emeğiniz için teşekkürler. buton devreye giriyor ama herhangi bir değişiklik yapmıyor. ilk satırda değişiklik oluyodu ama şimdi oda olmuyor..

Arama B sütunnda yapılıyor.Bunu dikkate aldınızmı?

 

[satan22]

hocam dosya boyutu yüksek olduğundan almıyo galiba.. tekrar deniyecem

 

[satan22]

Dosyanızı ekler iseniz isabetli yanıtlar verilebilir...

dosyayı ekledim. şimdiden teşekkürler.

 

[Orion1]

Aşağıdaki stırrı onun altındaki satırla değiştirip deneyin

For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))

[B][COLOR="Red"]For Each bak In Range("b1:b" & cells(65536,"B").end(xlup).row)[/COLOR][/B]

 

[satan22]

arkadaşlar şimdi oldu. çok teşekkür ederim. minnettarım sizlere emeği geçen ve katkıda bulunan herkese saygılar...

 

[Orion1]

Aşağıdakini kullanın.Textbox1in içindeki değer cdate tarih olmalı.

Sheets("Sayfa1").Select
Dim bak As Range
    [B][COLOR="red"]For Each bak In Range("b1:b" & Cells(65536, "B").End(xlUp).Row)[/COLOR][/B]

        If bak.Value = [B][COLOR="Red"]CDate(TextBox1.Value) [/COLOR][/B]Then
            bak.Select
    ActiveCell.Value = [B][COLOR="Red"]CDate(TextBox1.Value)[/COLOR][/B] 
   ActiveCell.Offset(0, 0).Value = TextBox1.Value
    ActiveCell.Offset(0, 1).Value = TextBox2.Value
    ActiveCell.Offset(0, 2).Value = ComboBox3.Value
    ActiveCell.Offset(0, 3).Value = TextBox3.Value
    ActiveCell.Offset(0, 4).Value = TextBox5.Value
    ActiveCell.Offset(0, 5).Value = TextBox6.Value
    ActiveCell.Offset(0, 7).Value = ComboBox2.Value
     End If
   Next bak
    Workbooks("ÖEB SON HALİ.XLS").Save
    MsgBox "Verileriniz Başarıyla Değiştirildi", , "KAYIT"
    TextBox1.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
      Unload UserForm3
      UserForm3.Show

 

[satan22]

teşekkürler..