Bilgileri ana sayfaya taşıma

[TanerSaydam]

Pardon hocam, biraz yoğundum, unutmuşum. Şimdi bakıyorum.

 

[zerali]

Tamam teşekkürler

 

[TanerSaydam]

Düzenlediğiniz içeriğe göre kodları güncelledim. Son hali aşağıda. Ayrıca satırların arasına eklediğiniz Sonuç kısmını da görsel güzelliği için gizledim. Hücreleri seçip

Sağ tık>Göster

diyerek onları geri görünür yapabilirsiniz.

Dosyanız:
https://www.dosyaupload.com/dy3p

Private Sub CommandButton1_Click()
On Error Resume Next
ilk = 5
son = Range("A" & Rows.Count).End(xlUp).Row

arama = 26
arama2 = 27
arama3 = 2
arama4 = 3


ilk1 = 2
son1 = Sayfa2.Range("B" & Rows.Count).End(xlUp).Row

yer = ilk

Range("B5:P22").ClearContents

For v = ilk To son
Range("B" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa2.Range("B2:BM39"), arama, False)
Range("C" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa2.Range("B2:BM39"), arama2, False)
Range("D" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa2.Range("B2:BM39"), arama2 + 1, False)
Range("E" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa3.Range("B2:BM39"), arama, False)
Range("F" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa3.Range("B2:BM39"), arama2, False)
Range("G" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa3.Range("B2:BM39"), arama2 + 1, False)
Range("H" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa4.Range("B2:BM39"), arama, False)
Range("I" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa4.Range("B2:BM39"), arama2, False)
Range("J" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa4.Range("B2:BM39"), arama2 + 1, False)
Range("K" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa5.Range("B5:V37"), arama3, False)
Range("L" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa5.Range("B5:V37"), arama4, False)
Range("M" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa5.Range("B5:V37"), arama4 + 1, False)
Range("N" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa6.Range("B5:V37"), arama3, False)
Range("O" & yer).Value = Application.WorksheetFunction.VLookup(Range("B1"), Sayfa6.Range("B5:V37"), arama4, False)
arama = arama + 3
arama2 = arama2 + 3
arama3 = arama3 + 3
arama4 = arama4 + 3
yer = yer + 1
Next v

End Sub

 

[zerali]

Çok teşekkür ederim Taner hocam .Emeğinize sağlık.Tam istediğim gibi olmuş.

 

[TanerSaydam]

Rica ederim. Başka bir sorunuz olursa yardımcı olmaktan mutluluk duyarım. İyi akşamlar.

 

[zerali]

Tekrar teşekkürler.İyi akşamlar