Veri Alma Makrosunda Düzeltme

[1Al2Ver]

Merhabalar ve günaydınlar,

Ek'li Dosya'nın "Ana Menü" sayfasında, Q22, Q24 ve Q26 hücreleride sorun var, Düşeyara formülü kurulmasına rağmen açılır kutudan yeni bir personel seçildiğinde "YANLIŞ" ve "#YOK" mesajları vermekte, Ana Sayfa'ya ait VBA kodunda sorun olduğunu sanıyorum,

Sorunun giderilmesi için kodda gereken düzeltmeyi rica ediyorum,

Teşekkür ederim.

 

[halit3]

aşağıdaki kodunuzu uyurlayınız

Private Sub ComboBox1_Change()
[DA1] = ComboBox1.Value
'Range("Q22") = ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-16]C[-11],KAYNAK!R[-18]C[-15]:R[478]C[90],9,0)"
'Range("Q24") = [F24]
'Range("Q26") = ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-20]C[-11],KAYNAK!R[-22]C[-15]:R[474]C[90],11,0)"

Cells(22, 17).Value = "=IF(R1C103=1,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,10,0),IF(R1C103=2,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,10,0)))"
Cells(24, 17).Value = "=IF(R1C103=1,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,11,0),IF(R1C103=2,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,11,0)))"
Cells(26, 17).Value = "=IF(R1C103=1,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,13,0),IF(R1C103=2,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,13,0)))"
End Sub

 

[1Al2Ver]

aşağıdaki kodunuzu uyurlayınız

Private Sub ComboBox1_Change()
[DA1] = ComboBox1.Value
'Range("Q22") = ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-16]C[-11],KAYNAK!R[-18]C[-15]:R[478]C[90],9,0)"
'Range("Q24") = [F24]
'Range("Q26") = ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-20]C[-11],KAYNAK!R[-22]C[-15]:R[474]C[90],11,0)"

Cells(22, 17).Value = "=IF(R1C103=1,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,10,0),IF(R1C103=2,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,10,0)))"
Cells(24, 17).Value = "=IF(R1C103=1,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,11,0),IF(R1C103=2,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,11,0)))"
Cells(26, 17).Value = "=IF(R1C103=1,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,13,0),IF(R1C103=2,VLOOKUP(R1C106,KAYNAK!R4C1:R500C79,13,0)))"
End Sub

Sayın halit3 merhaba,

Çözüm için teşekkür ederim, saygılarımla.