mars2
Gold Üye
- Katılım
- 22 Nis 2022
- Mesajlar
- 76
- Aldığı beğeni
- 14
- Excel V
- Office 2016 TR
- Gold Bitiş
- 25 Mayıs 2026
Konu Sahibi
İyi Akşamlar;
Çalışma kitabımın liste sayfasının "C" sutununa hesap nosunun girdiğimde, bu hesabın kime ait ise onun ismini "D" sutunundaki hücresine hesap sayfasında gelmesini istiyorum. Ancak, aşağıdaki kodla, getirmeyece çalıştığımda hesap nosuna ait kişi adları farklı gelmektedir. Nedere yanlışlık yapmaktayım.
Sub kisiler()
Set S1 = Sheets("hesap")
Set s2 = Sheets("liste")
son = S1.Cells(65536, 2).End(xlUp).Row
son1 = s2.Cells(65536, 1).End(xlUp).Row
For i = 9 To son1
ara = s2.Cells(i, 1)
Set c = S1.Range("S:S").Find(ara, , xlValues, xlPart)
If Not c Is Nothing Then
sat = c.Row
s2.Cells(i, 4) = S1.Cells(sat, "F:F")
End If
Next
End Sub
Çalışma kitabımın liste sayfasının "C" sutununa hesap nosunun girdiğimde, bu hesabın kime ait ise onun ismini "D" sutunundaki hücresine hesap sayfasında gelmesini istiyorum. Ancak, aşağıdaki kodla, getirmeyece çalıştığımda hesap nosuna ait kişi adları farklı gelmektedir. Nedere yanlışlık yapmaktayım.
Sub kisiler()
Set S1 = Sheets("hesap")
Set s2 = Sheets("liste")
son = S1.Cells(65536, 2).End(xlUp).Row
son1 = s2.Cells(65536, 1).End(xlUp).Row
For i = 9 To son1
ara = s2.Cells(i, 1)
Set c = S1.Range("S:S").Find(ara, , xlValues, xlPart)
If Not c Is Nothing Then
sat = c.Row
s2.Cells(i, 4) = S1.Cells(sat, "F:F")
End If
Next
End Sub
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
