• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü otomatik köprü oluşturma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Ersin Tunca

Yeni Üye
Katılım
4 Ağu 2021
Mesajlar
397
Çözümler
1
Aldığı beğeni
86
Excel V
Office 2010 TR
Konu Sahibi
Sy. Hocalarım ;
Sayfa1 B3 ile B300 sütununda Araç plakaları yazıyor. aynı sayfada F2 de B sütununda ki plakalar yazmaya başlıyor 4 sütun da bir başka bir plaka yazmaktadır. bu şekilde AAB2 ye kadar devam etmektedir. ben B sütununda hangi araç plakasına tıklarsam o araç plakasına otomatik gitmesini nasıl yapabilirim. otomatik köprü nasıl yapabilirim. vba da olmasını rica ederim.
 
Dener misiniz:

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
50 satırdan sonraki araçlar listede var mı?
 
Konu Sahibi
sy. askan ;
hocam bu kodun içine bu formülü nasıl ekleye biliriz.
Sub akkoç_düşeyara()
For i = 6 To 708 Step 4
Cells(2, i) = Evaluate("=LOOKUP(" & Cells(1, i).Address & ",$A$3:$A$503,$B$3:$B$503)")
Next i
End Sub

=EĞERHATA(ÇOKETOPLA(akkoç!$A$3:$A$5000;akkoç!$M$3:$M$5000;F2);"")
 
sy. askan ;
hocam bu kodun içine bu formülü nasıl ekleye biliriz.
Sub akkoç_düşeyara()
For i = 6 To 708 Step 4
Cells(2, i) = Evaluate("=LOOKUP(" & Cells(1, i).Address & ",$A$3:$A$503,$B$3:$B$503)")
Next i
End Sub

=EĞERHATA(ÇOKETOPLA(akkoç!$A$3:$A$5000;akkoç!$M$3:$M$5000;F2);"")
buna bakayım
 
Hocam şunu çalıştırıp resimdeki sonuçları bana bir gönderir misin
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
1673292546123.png
 
sy. askan ;
hocam bu kodun içine bu formülü nasıl ekleye biliriz.
Sub akkoç_düşeyara()
For i = 6 To 708 Step 4
Cells(2, i) = Evaluate("=LOOKUP(" & Cells(1, i).Address & ",$A$3:$A$503,$B$3:$B$503)")
Next i
End Sub

=EĞERHATA(ÇOKETOPLA(akkoç!$A$3:$A$5000;akkoç!$M$3:$M$5000;F2);"")
Bu kod hangi hücreye ekleyeceksiniz?
 
G3 de Başlıyor ve 4 sütunda bir
=EĞERHATA(ÇOKETOPLA(akkoç!$A$3:$A$5000;akkoç!$M$3:$M$5000;J2);"")
=EĞERHATA(ÇOKETOPLA(akkoç!$A$3:$A$5000;akkoç!$M$3:$M$5000;N2);"")
Döngü içine ekleyin:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
F2 yi düzeltmemişim aşağıdakini kullanın

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
sy. askan ;
gayet güzel çalışıyor. 5 sayfa için kendime göre uyarladım çok güzel çalışıyor. size zahmet olmazsa 3 sayfayı olunca nasıl yapmam gerekiyor.

=-EĞERHATA(ÇOKETOPLA(akkoç!$X$3:$X$5000;akkoç!$M$3:$M$5000;F2);"")-EĞERHATA(ÇOKETOPLA(akc!$Y$3:$Y$1500;akc!$N$3:$N$1500;F2);"")-EĞERHATA(ÇOKETOPLA(özdoğa!$Y$3:$Y$1500;özdoğa!$N$3:$N$1500;F2);"")-EĞERHATA(ÇOKETOPLA('ağırnakliye Akkoc'!$I$3:$I$100;'ağırnakliye Akkoc'!$G$3:$G$100;F2);"")+EĞERHATA(ÇOKETOPLA('ağırnakliye Özdoğa'!$I$3:$I$100;'ağırnakliye Özdoğa'!$G$3:$G$100;F2);"")

bunun sonucu da G15 e getiriyor.
 
sy. askan ;
gayet güzel çalışıyor. 5 sayfa için kendime göre uyarladım çok güzel çalışıyor. size zahmet olmazsa 3 sayfayı olunca nasıl yapmam gerekiyor.

=-EĞERHATA(ÇOKETOPLA(akkoç!$X$3:$X$5000;akkoç!$M$3:$M$5000;F2);"")-EĞERHATA(ÇOKETOPLA(akc!$Y$3:$Y$1500;akc!$N$3:$N$1500;F2);"")-EĞERHATA(ÇOKETOPLA(özdoğa!$Y$3:$Y$1500;özdoğa!$N$3:$N$1500;F2);"")-EĞERHATA(ÇOKETOPLA('ağırnakliye Akkoc'!$I$3:$I$100;'ağırnakliye Akkoc'!$G$3:$G$100;F2);"")+EĞERHATA(ÇOKETOPLA('ağırnakliye Özdoğa'!$I$3:$I$100;'ağırnakliye Özdoğa'!$G$3:$G$100;F2);"")

bunun sonucu da G15 e getiriyor.
Hocam deneyin çalışacak mı? Ben denemedim.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst