• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Değiştir Butonu Hakkında..

  • Konbuyu başlatan Konbuyu başlatan satan22
  • Başlangıç tarihi Başlangıç tarihi
S

satan22

Katılım
3 Ocak 2009
Mesajlar
55
Excel Vers. ve Dili
2003
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..

Kod: 
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
 
Aşağıdakini deneyiniz.:cool:
Kod: 
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
 
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..
 
satan22' Alıntı:
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..
Genişletmek için tıkla ...
Arama B sütunnda yapılıyor.Bunu dikkate aldınızmı?
 
hocam dosya boyutu yüksek olduğundan almıyo galiba.. tekrar deniyecem
 
Aşağıdaki stırrı onun altındaki satırla değiştirip deneyin:cool:
Kod: 
For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))
Kod: 
[B][COLOR="Red"]For Each bak In Range("b1:b" & cells(65536,"B").end(xlup).row)[/COLOR][/B]
 
arkadaşlar şimdi oldu. çok teşekkür ederim. minnettarım sizlere emeği geçen ve katkıda bulunan herkese saygılar...
 
Aşağıdakini kullanın.Textbox1in içindeki değer cdate tarih olmalı.
Kod: 
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
 
teşekkürler..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst