Heralde köprü adresi yanlış oluyordu.En son sütunun bir sağına eklenebilir belki yada başka yoldan yaparız.
Excel De Makro Çalıştığında Satır Atlatarak Kayıt Yapıyor.
(07/06/2020, 12:39)feraz yazdı: Heralde köprü adresi yanlış oluyordu.En son sütunun bir sağına eklenebilir belki yada başka yoldan yaparız.Sabah 7.30 dan beri defalarca yaptım en son 2016 yükledim yine tekrar tekrar silip köprüleri yeniden formüle ettim yok olmuyor ornek firma dışında hiç bir firmanın köprüsü çalışmıyor. Kafayı sıyırdım şu anda Bill gatese sövüyorum
https://www.youtube.com/watch?reload=9&v=Tyx7mwI1v4w Dersin videosu 8 küsur saat aynısını yaptım işlemlerin ama hatayı bulamıyorum.
Access Çekirgesi
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
Son Düzenleme: 07/06/2020, 12:53, Düzenleyen: Oğuz Türkyılmaz.
(07/06/2020, 12:50)Oğuz Türkyılmaz yazdı:Hallederiz üstad Allahın izniyle.(07/06/2020, 12:39)feraz yazdı: Heralde köprü adresi yanlış oluyordu.En son sütunun bir sağına eklenebilir belki yada başka yoldan yaparız.Sabah 7.30 dan beri defalarca yaptım en son 2016 yükledim yine tekrar tekrar silip köprüleri yeniden formüle ettim yok olmuyor ornek firma dışında hiç bir firmanın köprüsü çalışmıyor. Kafayı sıyırdım şu anda Bill gatese sövüyorum
https://www.youtube.com/watch?reload=9&v=Tyx7mwI1v4w Dersin videosu 8 küsur saat aynısını yaptım işlemlerin ama hatayı bulamıyorum.
Sadece Firmalar sayfasındaki B sütunundaki veriler kapalı excellerdekilerle aynı ad olmak zorunda yol bulunabilmesi için köprünün.
Örnek B6 ya Doruk Yapı yazıp deneyin köprü açılır.
Firmalar sazfasinini A1 formülünü alttaki gibi değiştirmeniz yeterli.
Kod:
=KÖPRÜ("["&Sabitler!$B$2&Firmalar!X1&".xlsx]DETAY!A4";"AÇ")
Maalesef olmadı sizin indirdiğiniz dosyada bu değişiklikleri uygulayabildiniz mi acaba. Sıkıntıyı ben mi çözemiyorum. Gözlerim teslim bayrağı çekti.
Access Çekirgesi
Dosyayı yolluyorum.
ilgili kodu alttaki gibi yaptım önceden yazdığım olay için başlık.
Kendi dosyanıza uyarlarken Sabitler sayfası B1 hücresindeki yolu değiştirin.
ilgili kodu alttaki gibi yaptım önceden yazdığım olay için başlık.
Kod:
With syfFirmalar
.Select
If WorksheetFunction.CountA(.Range("A4:A" & Rows.Count)) = 0 Then
.Rows("1:1").Copy .Range("A4")
.Rows(4).Replace What:="Örnek", Replacement:=Firma, LookAt:=xlPart
Else
.Rows("1:1").Copy .Range("A" & Rows.Count).End(3)(2, 1)
satir = .Range("A" & Rows.Count).End(3).Row
.Rows(satir).Replace What:="Örnek", Replacement:=Firma, LookAt:=xlPart
End If
.Range("A" & Rows.Count).End(3)(2, 1).Select
End WithKendi dosyanıza uyarlarken Sabitler sayfası B1 hücresindeki yolu değiştirin.
CariTakipFeraz.rar
(Dosya Boyutu: 287,07 KB | İndirme Sayısı: 3)
Konuyu Okuyanlar: 1 Ziyaretçi
