Hayırlı ramazanlar. Yapmak istediğim programda düşeyara formülünün makrosunu yazmak istedim. Makroyu çalıştırdığımda Sayfa2 de B sütununa Sayfa1 den T.C. Kimlik Numarası gelmesini istedim. Ancak isim geliyor. Yardımcı olursanız sevinirim. Şimdiden teşekkür ederim.
Örnek Dosya
Ters Düşeyara formülü hatası
-
- Mesajlar: 8
- Kayıt: 23 Haz 2023, 13:00
- Lokasyon: konya
- Meslek: Okul Müdürü
- Adınız: Kadir
- Soyadınız: ARGIN
-
- Mesajlar: 10
- Kayıt: 21 Mar 2024, 11:31
- Lokasyon: istanbul
- Meslek: Oto Yedek Parça Satış Elemanı
- Adınız: Sinan
- Soyadınız: Aykaç
Re: Ters Düşeyara formülü hatası
Çalışma sayfanızda ki kodu;
Sub Duseyara()
Call fonksiyonlariKapat
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Sheets("Sayfa1")
Set ws2 = ThisWorkbook.Sheets("Sayfa2")
For i = 7 To ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row
If ws2.Cells(i, "C").Value <> "" Then
Dim isimSoyisim As String
isimSoyisim = ws2.Cells(i, "C").Value
Dim bulunan As Range
Set bulunan = ws1.Columns("C").Find(What:=isimSoyisim, LookIn:=xlValues, LookAt:=xlWhole)
If Not bulunan Is Nothing Then
ws2.Cells(i, "B").Value = bulunan.Offset(0, -1).Value
End If
End If
Next i
Call fonksiyonlariAc
End Sub
Bu kodla değiştirin.
Sub Duseyara()
Call fonksiyonlariKapat
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Sheets("Sayfa1")
Set ws2 = ThisWorkbook.Sheets("Sayfa2")
For i = 7 To ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row
If ws2.Cells(i, "C").Value <> "" Then
Dim isimSoyisim As String
isimSoyisim = ws2.Cells(i, "C").Value
Dim bulunan As Range
Set bulunan = ws1.Columns("C").Find(What:=isimSoyisim, LookIn:=xlValues, LookAt:=xlWhole)
If Not bulunan Is Nothing Then
ws2.Cells(i, "B").Value = bulunan.Offset(0, -1).Value
End If
End If
Next i
Call fonksiyonlariAc
End Sub
Bu kodla değiştirin.
-
- Mesajlar: 8
- Kayıt: 23 Haz 2023, 13:00
- Lokasyon: konya
- Meslek: Okul Müdürü
- Adınız: Kadir
- Soyadınız: ARGIN
Re: Ters Düşeyara formülü hatası
Teşekkür ederim. Elinize sağlık