AccessTr.neT - Excel De Makro Çalıştığında Satır Atlatarak Kayıt Yapıyor.

Sayfalar: 1 2 3 4 5

Heralde köprü adresi yanlış oluyordu.En son sütunun bir sağına eklenebilir belki yada başka yoldan yaparız.

(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 Img-grin

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.

(07/06/2020, 12:50)Oğuz Türkyılmaz yazdı: [ -> ]
(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.

Hallederiz üstad Allahın izniyle.

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.

Dosyayı yolluyorum.

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 With

Kendi dosyanıza uyarlarken Sabitler sayfası B1 hücresindeki yolu değiştirin.

Sayfalar: 1 2 3 4 5