Formül ile Veri Çekme

[betaelektronik]

Merhaba Arkadaşlar Ekli dosyada Kurum Sicil Sütununa veri çekemiyorum. Acil yardımlarınızı rica ediyorum.


DosyaT.C

Kadroluisci.zip dosyasını indir - download

Kadroluisci.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[betaelektronik]

FORMÜL ŞU ŞEKİLDE;


Private Sub btnAktar_Click()
Dim Bak As Integer
Dim Syf1 As Worksheet
Dim Syf2 As Worksheet
Dim Say As Long
Dim Satir As Long

Set Syf1 = ThisWorkbook.Worksheets("Sayfa1")
Set Syf2 = ThisWorkbook.Worksheets("Sayfa2")

Say = Syf2.Cells(Rows.Count, "A").End(xlUp).Row

For Bak = 1 To Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row
Select Case Syf1.Cells(Bak, "A")
Case "Adı"
Sayfa2.Cells(Say, "C") = Sayfa1.Cells(Bak, "B")
Case "Soyadı"
Sayfa2.Cells(Say, "D") = Sayfa1.Cells(Bak, "B")
Case "T.C. Kimlik No"
Sayfa2.Cells(Say, "B") = Sayfa1.Cells(Bak, "B")
Case "Statüsü"
Sayfa2.Cells(Say, "E") = Sayfa1.Cells(Bak, "B")
Case "Kurum Sicil "
Say = 1 + Say
Sayfa2.Cells(Say, "A") = Say - 1
End Select

Select Case Syf1.Cells(Bak, "C")
Case "Baba Adı"
Sayfa2.Cells(Say, "F") = Sayfa1.Cells(Bak, "E")
Case "Doğum Tarihi"
Sayfa2.Cells(Say, "G") = Sayfa1.Cells(Bak, "E")
End Select
Next
End Sub

 

[muratboz06]

İnceleyiniz.

 

[betaelektronik]

İnceleyiniz.

Merhaba altın üye olmadığım için eki açamıyorum.
Rica etsem dosya T.C. de link vermeniz mümkün mü?
Çok teşekkürler.

 

[betaelektronik]

İnceleyiniz.

Teşekkür ederim Murat Hocam.

Yanlız daha fazla kişi eklediğimizde hata almaktayım. Çözüm için bir öneriniz varmı.

 

[muratboz06]

Dim Bak As integer satırını
Dim Bak As Long olarak değiştirin.

 

[betaelektronik]

Dim Bak As integer satırını
Dim Bak As Long olarak değiştirin.

Elinize Sağlık çok teşekkürler.