Düşeyara Formülü

[ertu8276]

Düşeyara formülüyle A8 tarih var G8 rakam H8 tarih N8 Rakam var benim bunları başka bir sayfada A1 deki tarih A8 Aynı Rakamı B1 Yazdrımam gerkiyor tabiki A2 de H8 deki tarih var orayada N8 yazdırmam gerekli bana düşeyara formülüyle yapabilirmiyim. yapamazsam formül önerilerinizi bekliyorum.

şimdiden teşekkürler

 

[asi_kral]

Düşeyara formülüyle A8 tarih var G8 rakam H8 tarih N8 Rakam var benim bunları başka bir sayfada A1 deki tarih A8 Aynı Rakamı B1 Yazdrımam gerkiyor tabiki A2 de H8 deki tarih var orayada N8 yazdırmam gerekli bana düşeyara formülüyle yapabilirmiyim. yapamazsam formül önerilerinizi bekliyorum.

şimdiden teşekkürler

Merhaba
B14 hücresine

=DÜŞEYARA($A14;$A$1:$G$13;7)

B15 hücresine

=DÜŞEYARA($A15;$H$1:$N$13;7)

Yazın ve deneyin.

 

[ertu8276]

Merhaba
B14 hücresine

=DÜŞEYARA($A14;$A$1:$G$13;7)

B15 hücresine

=DÜŞEYARA($A15;$H$1:$N$13;7)

Yazın ve deneyin.

çok teşekürler ama bu sutunlardan bende o kadar çok ki formülü bu şekilde düzenlemem çok zor.

 

[asi_kral]

çok teşekürler ama bu sutunlardan bende o kadar çok ki formülü bu şekilde düzenlemem çok zor.

Anlayamadım nasıl olduğunu dosyada bu şekilde görünüyordu. Dosyanıza benzer bir dosya yapın öyle gönderin bir bakalım başka çözümler bulabiliriz.

 

[ertu8276]

yeni dosya ekledim.

yeni dosya ekledim. bu işlemi 31.12.2012 kadar uzayacak.

 

[asi_kral]

yeni dosya ekledim. bu işlemi 31.12.2012 kadar uzayacak.

Bunda belli bir standart yok.
Tarihi 1 Rakam'ı 7'ye yazmışsınız 3 kere sonra farklılaşmış. Standartı var ise söyleyin öyle yapayım.
Makro yazacağım ama gene standart bir bilgi yok ona göre yazayım.

 

[ertu8276]

ekledim

bir standart var tarihle başlayıp 7 satır sonra rakam tekrar tarih 7 satır sonra tekrar tarih var. bu şekilde ilerliyor. dosyada sayıyı ekledim.

 

[asi_kral]

bir standart var tarihle başlayıp 7 satır sonra rakam tekrar tarih 7 satır sonra tekrar tarih var. bu şekilde ilerliyor. dosyada sayıyı ekledim.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub bul_gelir_1967()
'Konu       :   Tarih Karşııığını Bul
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral
For asi = 14 To Cells(Rows.Count, "A").End(xlUp).Row
For kral = 1 To Cells(8, Columns.Count).End(xlToLeft).Column
If Cells(asi, "A") = Cells(8, kral) Then
Cells(asi, "B") = Cells(8, kral + 6)
End If
Next
Next
MsgBox "Karşılıklar Bulundu", vbInformation, "asi_kral_1967"
End Sub

 

[ertu8276]

asi Kral 1967 çok teşekkür ederim.

Emegine sağlık