sayfaları eşleştirme

[fthkhrmn]

Merhaba,

Ekteki dosyada , 1 sayfada belirtilen firma isim ve kodlarını, 2 sayfada verilen kodların karşına isimleri nasıl formülleyebilirim.

 

[İhsan Tank]

bu formülü uygulayınız

=ARA(A2;Sayfa1!B2;Sayfa1!A2)

örnek dosya ektedir

 

[fthkhrmn]

yazdığınız formül sıra değiştiğinde hata veriyor.

 

[uzmanamele]

merhaba

excel dersanesinde İNDİS fonksiyonu örneklerini inceleyiniz.
sanırım "arama başvuru örnekleri" adı ile eklenmiş çalışmadır.

 

[fthkhrmn]

bulamadım yarcımcı olurmusunuz !!

 

[İhsan Tank]

=DÜŞEYARA(A2;Sayfa1!A2:B28;2;0)

bu kodu deneyiniz
örnek dosya ektedir.
olumlu yada olumsuz geri dönüşüm yapınız

 

[MS-CAN]

Diğer sayfaya şartlı veri aktarma yardım...

MERHABALAR...

Aşağıdaki sorunum için yardımcı olursanız çok sevinirim.

Sayfa1 de C sütunundaki tarihlerin solunda bulunan rakamları
Sayfa2 deki ilgili tarih satırına ve ilgili şube sütununa kopyalamasını istiyorum.
Not:Tarihler değişkendir...
Örnek dosya ektedir. Teşekkürler...

 

[xp45s]

sn ms-can sorunuzla ilgili olarak yeni konu açarmısınız..

 

[Orion1]

Dosyanız ektedir.

Sub aktar()
Dim sh As Worksheet, i As Long, sat As Long, sut As Long, k As Range, sat2 As Long
Set sh = Sheets("HAVALE LİSTESİ")
Application.ScreenUpdating = False
Range("B2:AA65536").ClearContents
Set sh = Sheets("MUTABAKAT")
sat = sh.Cells(65536, "A").End(xlUp).Row
For i = 4 To sat
    Set k = Range("A2:A65536").Find(sh.Cells(i, "C").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            sat2 = k.Row
            Else
            GoTo atla
        End If
        Set k = Range("B1:IV65536").Find(sh.Cells(i, "A").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            sut = k.Column
            Else
            GoTo atla
        End If
        Cells(sat2, sut).Value = sh.Cells(i, "B").Value
atla:
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub