Aranan verinin karşılığını diğer sayfaya getirme

[raaroka]

Merhaba arkadaşlar,

Sorunum şu,

A dan j ye kadar sütunların ve çok sayıda satıralarım bulunmakta. Veriler sürekli değişiyor her ay aynı tablo ile uğraşıyorum.

X sayfasında araç plakalarım var "B" sütununda.(Aynı plakaya sahip veriler tekrarlanıyor çoğuzaman.)
X sayfasında Araç km lerim var. "G" sütununda.
X sayfasında alınan yakıt tutarları var. "j sütununda"
B G J
Departman Plaka Arac Km Tutar
DEVIR 34..0690 154394 191,47
DEVIR 34..17 0 290,72
DEVIR 34..9822 344823 328,90
DEVIR 34..339 0 161,19

Bu tablanun birkaç sefer tekrarladığını düşünün.
Yapmak istediğim şu.

Y sayfasına C5 hücresine plakayı yazacağım.
Yazdığım plakaya ait X sayfasındaki B sütununda eşleşen plakanın verilerini
Ysayfasında C6-C7-C8 diye alta doğru devam ederek aktarmasını istiyorum.Plakaları aktarırken X sayfasındaki G ve J hücrelerinide karısına getirecek.

Böylece ben küçük bir hesaplama ile oraya yazdığım plakalı aracın o ayki yakıt masrafını ve km'de kaç para yaktığını hesaplıyabiliyor olacağım.

Umarım anlatabilmişimdir.Yardımlarınızı bekliyorum.

 

[1Al2Ver]

Merhaba,

Öneri ; Forumda "Araç Km.", "Araç Plaka" vb. arama yapın,

Şablonunuza göre örnek çözüm bulamazsanız, Forum'a ; Sonuçları elle girilmiş, örnek bir excel tablosu ekleyiniz,

Böylece çabuk ve doğru çözüm alabilir siniz.

Teşekkür ederim.

 

[BG]

Merhaba

Merhaba,

Anladığım kadarıyla yanıtlamaya çalıştım. Dosya ektedir.

 

[raaroka]

Merhaba,

Anladığım kadarıyla yanıtlamaya çalıştım. Dosya ektedir.

Üstadım istediğim gibi olmuş fakat formül nerde onuda söyleşende bir daha başımıza geldiğinde rahat çözsek. Anlatırasan sevinirim.

 

[Ergün GÖKER]

formül .) VBA Kod da yazılı

 

[raaroka]

formül .) VBA Kod da yazılı

Tekrar merhabalar.
Yapmış olduklarınızdan giderek kendi dosyamda uygulamaya çalıştım ama sanırım bir yerde hata var çalıştıramadım. Bir inceleyip yardımcı olabilirmisiniz. Birde hatanın nerde olduğunu söylerseniz sevinirim.
Teşekkrler.

Rapor sayfasında veri sayfasından BCGHIJ sütunlarının gözükmesini istiyorum . Yazmayı unutmuşum bilginize.

 

[raaroka]

Tekrar merhabalar.
Yapmış olduklarınızdan giderek kendi dosyamda uygulamaya çalıştım ama sanırım bir yerde hata var çalıştıramadım. Bir inceleyip yardımcı olabilirmisiniz. Birde hatanın nerde olduğunu söylerseniz sevinirim.
Teşekkrler.

Rapor sayfasında veri sayfasından BCGHIJ sütunlarının gözükmesini istiyorum . Yazmayı unutmuşum bilginize.

Arkadaşlar yardımlarınızı bekliyrum

 

[ZorBey_]

Kod sayfasında Rapor yazan yerleri x yaparak deneyiniz.
Set s1 = Sheets(1)
Set s2 = Sheets(2)
/////////////////////////
Set s1 = Sheets(2)
Set s2 = Sheets(1)

 

[raaroka]

Kod sayfasında Rapor yazan yerleri x yaparak deneyiniz.
Set s1 = Sheets(1)
Set s2 = Sheets(2)
/////////////////////////
Set s1 = Sheets(2)
Set s2 = Sheets(1)

Üstadım çok teşekkürler çalıştırabildim.

Formülün doğru halini paylaşayım arkadaşlar.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next


If Intersect(Target, [C5]) Is Nothing Or Target = "" Then Exit Sub

Range("C6:H10000").ClearContents

s = 6
Set s1 = Sheets(2)
Set s2 = Sheets(1)
For x = 1 To s1.Range("B65536").End(xlUp).Row
If s2.Range("C5") = s1.Cells(x, "B") Then
s2.Cells(s, "C") = s1.Cells(x, "B")
s2.Cells(s, "D") = s1.Cells(x, "C")
s2.Cells(s, "E") = s1.Cells(x, "G")
s2.Cells(s, "F") = s1.Cells(x, "H")
s2.Cells(s, "G") = s1.Cells(x, "I")
s2.Cells(s, "H") = s1.Cells(x, "J")
s = s + 1
End If
Next
End Sub


Üstadım ilk dosyayı yollayan arkadaş sayfa adını x olarak yapmıştı. Bende oradaki zlerin sayfa adına göre değişmesi gerektiğini düşündüm. Kod bilmemenin cahillikleri. Kopyala yapıştır bir yere kadar gidiyor. Oradaki mantığıda anlatırsanız sevinirim. Birde sheet 1 - 2 hatasını nasıl anladınız. Hangisayfanın 1 hangisinin 2 olduğunu?