Güncellenen bilgiyi ilgili kişinin satırına aktarmak

[sdegirmenci]

Değerli Hocalarım merhaba;
Ekteki dosyamda personel bilgisini güncellmek istediğimiz zaman Comboboxta seçili kişinin satırında ilgili hücreyi değiştirmesini itiyorum ama başaramadım.Yardımcı olursanız sevinirim.Şimdiden teşekkür edeiyorum.Tüm işleriniz kolay gelsin.

 

[N.Ziya Hiçdurmaz]

Yanıt

Dim SAYFA As Worksheet
Dim SUT As Integer
Set SAYFA = Sheets("KAYNAK")
For SUT = 4 To SAYFA.Cells(65536, "B").End(3).Row
If [F6] = SAYFA.Cells(SUT, "B") Then
[Q24] = SAYFA.Cells(SUT, "B").Offset(0, 9)
End If
Next

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim k As Range
Set k = Sheets("KAYNAK").Range("B4:B65536").Find(Range("F6"), , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("Q24").Value = k.Offset(0, 9).Value
    MsgBox "[ " & Range("F6").Value & " ] isimli kişiye Akatarıldı." _
    , vbOKOnly + vbInformation, "AKTARMA"
    Else
    MsgBox "[ " & Range("F6").Value & " ] İsimli kişi bulunamdı..!!", vbCritical, "UYARI"
End If
End Sub

 

[sdegirmenci]

Hocalarım ilginize çok teşekkür ederim.
Dosyada "Q24" e yazdığım değer kaynak sayfasında ilgili hücreyi değiştirmiyor.Tekrar bakabilirmisiniz acaba.

 

[N.Ziya Hiçdurmaz]

Yanıt

Dim SAYFA As Worksheet
Dim SUT As Integer
Set SAYFA = Sheets("KAYNAK")
For SUT = 4 To SAYFA.Cells(65536, "B").End(3).Row
If [F6] = SAYFA.Cells(SUT, "B") Then
[COLOR="Blue"]SAYFA.Cells(SUT, "B").Offset(0, 9) = [Q24][/COLOR]
End If
Next

 

[sdegirmenci]

Kıymetli Hocam şimdi oldu , İlginize çok teşekkür ederim. Ayrıca kıymetli Hocam Evren GİZLEN 'e de ilgisinden dolayı çok teşekkür ederim.

 

[Orion1]

Sub aktar()
Dim k As Range
Set k = Sheets("KAYNAK").Range("B4:B65536").Find(Range("F6"), , xlValues, xlWhole)
If Not k Is Nothing Then
    [B][COLOR="Red"]k.Offset(0, 9).Value=Range("Q24").Value[/COLOR][/B]
    MsgBox "[ " & Range("F6").Value & " ] isimli kişiye Akatarıldı." _
    , vbOKOnly + vbInformation, "AKTARMA"
    Else
    MsgBox "[ " & Range("F6").Value & " ] İsimli kişi bulunamdı..!!", vbCritical, "UYARI"
End If
End Sub