makro ile köprü oluşturmak

[cemilbenek]

Kolay gelsin
A kitabından B kitabına makro ile köprü yapmak istiyorum
ama A kitabında A2 hücresine hangi satır numarasını yazarsam B kitabında o satıra gitsin
yardımcı olurmusunuz teşekürler

 

[Emir Hüseyin Çoban]

.

B kitabı bu çalışma esnasında sizin ekranınızda zaten açık mı olacak ?
Yoksa açık değilse açılacak mı?

.

 

[cemilbenek]

açacak çıkarken kapatacak

 

[Emir Hüseyin Çoban]

.

A kitabı, çalışma sayfası kod bölümüne yapıştırın.
Dosya yolunu güncelleyin.
A2 hücresine değer girince çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) <> "A2" Then Exit Sub
If Range("A2") = "" Then Exit Sub
satırno = Range("A2")

dosyayolu = "C:\Users\huseyincoban\Desktop\test 06062020\B.xlsx"

Workbooks.Open (dosyayolu)
ActiveWorkbook.ActiveSheet.Cells(satırno, "A").Select

End Sub

.

 

[cemilbenek]

hocam yapıştırınca böyle oluyor hata veriyor
Private Sub CommandButton1_Click()
End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A2" Then Exit Sub
If Range("A2") = "" Then Exit Sub
sat?rno = Range("A2")
dosyayolu = "C:\Users\kullan?c?\Desktop\?EK DEFTER?\?EK L?STE\.xlsm"
Workbooks.Open (dosyayolu)
ActiveWorkbook.ActiveSheet.Cells(sat?rno, "A").Select
End Sub

 

[1Al2Ver]

Merhaba,

Kodu butona atamayın,

Açılacak dosya adı Çek Liste.xlsm ise , aşağıdaki gibi deneyin,

Olmaz ise Sayın ÇOBAN'ın düzeltmesini bekleyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A2" Then Exit Sub
If Range("A2") = "" Then Exit Sub
satirno = Range("A2")
dosyayolu = "C:\Users\kullanici\Desktop\ÇEK DEFTERİ\ÇEK LİSTE.xlsm"
Workbooks.Open (dosyayolu)
ActiveWorkbook.ActiveSheet.Cells(satirno, "A").Select
End Sub

Kolay gelsin.

 

[Emir Hüseyin Çoban]

.
Merhaba. Hata aldığınız dosyanın örneğini eklerseniz inceleyebilirim.

.

 

[cemilbenek]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A2" Then Exit Sub
If Range("A2") = "" Then Exit Sub
satirno = Range("A2")
dosyayolu = "C:\Users\kullanici\Desktop\?EK DEFTER?\?EK L?STE.xlsm"
Workbooks.Open (dosyayolu)
ActiveWorkbook.ActiveSheet.Cells(satirno, "A").Select
End Sub
Workbooks.Open (dosyayolu) bu ifadede kalıyor

 

[Emir Hüseyin Çoban]

Merhaba. Hata aldığınız dosyanın örneğini eklerseniz inceleyebilirim.

Dosya üzerinde görürsem net çözümler üretebilirim.