Textbox ile Koşullu Güncelleme Hak.

[metin_0606]

Değerli forum üyeleri paylaşmış olduğum çalışmamda textboxa girdiğim TC kimlik numarasını ANA LISTE isimli sayfada arayıp buluyor ve daha sonra Combobox daki belirtmiş olduğum duruma göre I sütununda personele ait çalışma durumunu güncelliyor. Buraya kadar herşey normal. Yapmak istediğim mükerrer kayıtlarda ilk mükerrer kaydı değilde "Etkin" olan mükerrer kaydı bulup bu kaydın verisini güncellemesini nasıl sağlayabilirim. Yardımlarınız için şimdiden teşekkürler.

 

[NBATMAN]

Merhaba,
butondaki kodu aşağıdaki gibi değiştiriniz.

Private Sub CommandButton1_Click()
son = Worksheets("ANA LISTE").Cells(Rows.Count, "C").End(xlUp).Row

For i = 1 To son

' If Worksheets("ANA LISTE").Cells(i, 3).Value = "" Then Exit Sub

If Worksheets("ANA LISTE").Cells(i, 3).Value = TextBox1.Text And Worksheets("ANA LISTE").Cells(i, 9).Value = "Etkin" Then

Worksheets("ANA LISTE").Cells(i, 9).Value = ComboBox1.Text

End If

Next i
End Sub

 

[metin_0606]

Merhaba,
butondaki kodu aşağıdaki gibi değiştiriniz.

Private Sub CommandButton1_Click()
son = Worksheets("ANA LISTE").Cells(Rows.Count, "C").End(xlUp).Row

For i = 1 To son

' If Worksheets("ANA LISTE").Cells(i, 3).Value = "" Then Exit Sub

If Worksheets("ANA LISTE").Cells(i, 3).Value = TextBox1.Text And Worksheets("ANA LISTE").Cells(i, 9).Value = "Etkin" Then

Worksheets("ANA LISTE").Cells(i, 9).Value = ComboBox1.Text

End If

Next i
End Sub

Geri Dönüş için öncelikle teşekkürler sayın Batman paylaşmış olduğunuz makro istenileni yapıyor teşekkürler. Peki bu makroya ilave olarak

If Worksheets("ANA LISTE").Cells(i, 3).Value = TextBox1.Text And Worksheets("ANA LISTE").Cells(i, 9).Value = "Etkin" Then

Worksheets("ANA LISTE").Cells(i, 8).Value = textbox2.Text kod büloğunu nasıl entegre edebiliriz. Aynı koşulda ikinci bir farklı veri güncellemek için. Userforma ek olarak Textbox2 eklediğimizi düşünürsek.

 

[NBATMAN]

Mevcut kodda aşağıdaki satırın altına ekleyebilirsiniz.
Private Sub CommandButton1_Click()
son = Worksheets("ANA LISTE").Cells(Rows.Count, "C").End(xlUp).Row

For i = 1 To son

' If Worksheets("ANA LISTE").Cells(i, 3).Value = "" Then Exit Sub

If Worksheets("ANA LISTE").Cells(i, 3).Value = TextBox1.Text And Worksheets("ANA LISTE").Cells(i, 9).Value = "Etkin" Then

Worksheets("ANA LISTE").Cells(i, 9).Value = ComboBox1.Text
Worksheets("ANA LISTE").Cells(i, 8).Value = Textbox2.Text

End If

Next i
End Sub

 

[metin_0606]

Mevcut kodda aşağıdaki satırın altına ekleyebilirsiniz.
Private Sub CommandButton1_Click()
son = Worksheets("ANA LISTE").Cells(Rows.Count, "C").End(xlUp).Row

For i = 1 To son

' If Worksheets("ANA LISTE").Cells(i, 3).Value = "" Then Exit Sub

If Worksheets("ANA LISTE").Cells(i, 3).Value = TextBox1.Text And Worksheets("ANA LISTE").Cells(i, 9).Value = "Etkin" Then

Worksheets("ANA LISTE").Cells(i, 9).Value = ComboBox1.Text
Worksheets("ANA LISTE").Cells(i, 8).Value = Textbox2.Text

End If

Next i
End Sub

Teşekkürler Sayın Batman makro istediğim gibi çalışıyor sagolun varolun