• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

makro ile çoklu köprü??

A

ahmedelizmiri

Katılım
17 Haziran 2008
Mesajlar
96
Excel Vers. ve Dili
Microsoft Office 2016 türkçe
köprü oluşturma yardım

Örnektekine benzer bir tablom var.
sayfa 2 deki rakamlara köprü atayıp sayfa 1'de karşılığına denk gelen tabloya köprü oluşturuyorum ama bu rakamlar çok uzayıp gidiyor ..yüzlerce.

tablolar aynı aralıklarla gittiği için bütün bu rakamlar için köprü oluştumanın çok daha kısa yolu varmıdır acaba??

Makro ile olabilir herhalde ama excel bilgim yeterli gelmiyor.Yardımcı olursanız sevinirim.

Saygılar,
 
Örnektekine benzer bir tablom var.
sayfa 2 deki rakamlara köprü atayıp sayfa 1'de karşılığına denk gelen tabloya köprü oluşturuyorum ama bu rakamlar çok uzayıp gidiyor ..yüzlerce.

tablolar aynı aralıklarla gittiği için bütün bu rakamlar için köprü oluştumanın çok daha kısa yolu varmıdır acaba??

Makro ile olabilir herhalde ama excel bilgim yeterli gelmiyor.Yardımcı olursanız sevinirim.

Saygılar,

Not:
Aynı soruyu tekrar sormak zorunda kalıyorum.Sanırım doğru başlığı kullanmadığım için soruma bakan olmadı.

Hata benden kaynaklanıyor.Bu yüzden hepinizden özür dilerim.Forumu meşgul etmemek için başlığı değiştirecektim ama gördüğüm kadarıyla başlık değiştirilemiyor.
 
Merhaba,

İkinci mesajınızı okumadan 1. mesaja yanıt veriyorum.

Köprü ile uğraşmaktansa kendimce bir yol buldum, umarım işe yarar.
Dosyayı inceleyiniz.
 
merhaba
konu ile ilgisi yok tabiki ;)

Köprüler yaptırdım gelip geçmeye
Çeşmeler yaptırdım suyun içmeye karam
Kavli karar ettim alıp kaçmaya
Boşa kostaklanma , kostak değilsin karam
Değisin karam aman aman değilsin karam
..
..


köprüden geçti gelin
saç bağın düştü gelin
haldan bilmez di loy loy
..
..

tatil moduna girdim :) :)
 
hahahaha
Kim tatil modunda değilki Sayın Uzman Amele :)
 
yaz gelince ister istemez giriliyor tabi tatil moduna :)
necdet bey yardımınız için teşekkürler.

bu da iş görür elbet.Yine de makro ile bu tür tekrarlanan formül tarzı bir uygulamayı yapabilme yolu varsa onu da öğrenmek isteriz.

Emeğiniz için teşekkürler ellerinize beyninize sağlık
 
bir de bu rc uygulaması hakkında bilgi alabilirmiyiz forum içinde arama yaptım ama bulamadım belki de doğru hedef kelimeyi seçmedik

Saygılar.
 
ahmedelizmiri' Alıntı:
bir de bu rc uygulaması hakkında bilgi alabilirmiyiz forum içinde arama yaptım ama bulamadım belki de doğru hedef kelimeyi seçmedik

Saygılar.
Genişletmek için tıkla ...

merhaba
rc ne ola ki?
recai desem, yok yok, değildir ;)
olsa-olsa;
araçlar / seçenekler / genel / R1C1 başvuru stili onay kutusunu işaretleyin
sonra basit bir formül yazın. yazdığınız formüle bakın ne hale gelmiş. :)
 
Tekrar Merhaba,

Israrla köprü kurulumunun nasıl yapıldığını sorunca dayanamadım ve üzerinde çalıştım.

Köprüyü kurmak yetmez birde kaldırmak gerek.

Kod: 
Sub Kopru()
Application.ScreenUpdating = False
Set s2 = Sheets("Sayfa2")
s2.Select
Dim Satir, i As Long
Dim Kolon As Integer
Dim KolonHarf As String
For i = 1 To [A65536].End(3).Row
    Satir = (Application.WorksheetFunction.RoundUp(Cells(i, "A") / 3, 0) - 1) * 15 + 4
    Kolon = i Mod 3
    If Kolon = 1 Then KolonHarf = "F"
    If Kolon = 2 Then KolonHarf = "J"
    If Kolon = 0 Then KolonHarf = "N"
    Range("A" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sayfa1!" & KolonHarf & Satir
Next i
Application.ScreenUpdating = True
[A1].Activate
MsgBox "Köprü İnşaatı Bitmiştir, Güle Güle Kullanınız...", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub



Kod: 
Public Sub KopruKaldir()
Sheets("Sayfa2").Select
Cells.Hyperlinks.Delete
End Sub
 
ekleri indiremiyorum guncelleme mumkunmu
 
şuanki pc de kayıtlı değil en kısqa sürede bulup tekrar yukleyeceğim
 
Uzmanından Yardım Bekliyorum

Necdet Yeşertener' Alıntı:
Tekrar Merhaba,

Israrla köprü kurulumunun nasıl yapıldığını sorunca dayanamadım ve üzerinde çalıştım.

Köprüyü kurmak yetmez birde kaldırmak gerek.

Kod: 
Sub Kopru()
Application.ScreenUpdating = False
Set s2 = Sheets("Sayfa2")
s2.Select
Dim Satir, i As Long
Dim Kolon As Integer
Dim KolonHarf As String
For i = 1 To [A65536].End(3).Row
    Satir = (Application.WorksheetFunction.RoundUp(Cells(i, "A") / 3, 0) - 1) * 15 + 4
    Kolon = i Mod 3
    If Kolon = 1 Then KolonHarf = "F"
    If Kolon = 2 Then KolonHarf = "J"
    If Kolon = 0 Then KolonHarf = "N"
    Range("A" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sayfa1!" & KolonHarf & Satir
Next i
Application.ScreenUpdating = True
[A1].Activate
MsgBox "Köprü İnşaatı Bitmiştir, Güle Güle Kullanınız...", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub



Kod: 
Public Sub KopruKaldir()
Sheets("Sayfa2").Select
Cells.Hyperlinks.Delete
End Sub
Genişletmek için tıkla ...

Bu konuda Uzman gördüm sizi soruyorum.
Tabi başka bilen varsa oda görüşünü yazabilir.

Bir çalışma Kitabım var Bunun Index Sayfasında diğer 10 larca sayfaya köprüler var.
Diyelimki Çalışma kitabının adını değiştirdim bu Köprülerin hiçbiri çalışmıyor.
Köprü adresindeki sadece çalışma kitabının adını Tüm Köprülerde toplu olarak
nasıl değiştirebilirim. Dosya adından sonraki hücre tanımları kalacak.
Bu işlem esasında Değiştir işlemi ile yapılmalıydı ama Değiştir bölümü Köprü
adreslerini bulamıyor.

Şöyle bir Kod buldum ama çalışmıyor.

Sub ReplaceHyperlinkAdresses()
Dim hypLink As Hyperlink
Dim ws As Worksheet

For Each ws In Worksheets
For Each hypLink In ws.Hyperlinks
If hypLink.Address Like "file:///D:\Belgelerim\Excel Uygulamaları\pratikbilgivergi.xls*" Then
hypLink.Address = _
Replace(hypLink.Address, "file:///D:\Belgelerim\Excel Uygulamaları\pratikbilgivergi.xls", "file:///D:\Belgelerim\Excel Uygulamaları\Vergi Harc Bilgileri 2011.xls")
End If
Next hypLink
Next ws
End Sub
Genişletmek için tıkla ...

Tek tek elle yapılabilir ama toplu olarak bir seferde nasıl değiştirilebilir?

Örnek :
İlk Adres : pratikbilgivergi.xls#'6'!A1
Değişmiş Adres : Vergi Harc Bilgileri 2011.xls#'6'!A1

Yardımcı olursanız sevinirim.
 
Son düzenleme:
Toplu Köprü Adres Değişikliği ÇÖZÜLDÜ

Soruyu sordum sonra Çözdüm.

Öncelikle VBA da Çalışma Kitabında bir Modül ekliyoruz.
daha sonra alttaki Kodu bu Module1 giriyoruz.

Public Sub ReplaceHyperlinkURL(FindString As String, ReplaceString As String)
Dim LinkURL, PreStr, PostStr, NewURL As String
Dim FindPos, ReplaceLen, URLLen As Integer
Dim MyDoc As Worksheet
Dim MyCell As Range
On Error GoTo ErrHandler

Set MyDoc = ActiveSheet
For Each MyCell In MyDoc.UsedRange
If MyCell.Hyperlinks.Count > 0 Then
LinkURL = MyCell(1).Hyperlinks(1).Address
FindPos = InStr(1, LinkURL, FindString)
If FindPos > 0 Then 'If FindString is found
ReplaceLen = Len(FindString)
URLLen = Len(LinkURL)
PreStr = Mid(LinkURL, 1, FindPos - 1)
PostStr = Mid(LinkURL, FindPos + ReplaceLen, URLLen)
NewURL = PreStr & ReplaceString & PostStr
MyCell(1).Hyperlinks(1).Address = NewURL 'Change the URL
End If
End If
Next MyCell
Exit Sub
ErrHandler:
MsgBox ("ReplaceHyperlinkURL error")
End Sub
Genişletmek için tıkla ...

Daha Sonra Araçlar>Makro>Yeni Makro Kaydet diyoruz. Onaylıyoruz.

Daha Sonra VBA da Modulun altında açılan Module2 ye ekteki Kodu giriyoruz.

Sub Makro1()

Call ReplaceHyperlinkURL("pratikbilgivergi", "Vergi%20Harc%20Bilgileri%202011")

End Sub
Genişletmek için tıkla ...

Boşluk varsa ekteki gibi %20 ile dolduruyoruz. Kaydedip çıkıyoruz.
Ben sadece Dosya adı değiştiği için Dosya Adlarını (Text) olarak değiştirdim.

Dosyayıda Kaydedip çıkıyoruz.
Daha sonra dosyayı açıp makroyu birkez çalıştırdıktan sonra Tüm Linkler değişiyor.

Belki birisine Lazım olur diye verdim.
 
Teşekkürler.

1mak1mak' Alıntı:
Soruyu sordum sonra Çözdüm.

Öncelikle VBA da Çalışma Kitabında bir Modül ekliyoruz.
daha sonra alttaki Kodu bu Module1 giriyoruz.



Daha Sonra Araçlar>Makro>Yeni Makro Kaydet diyoruz. Onaylıyoruz.

Daha Sonra VBA da Modulun altında açılan Module2 ye ekteki Kodu giriyoruz.



Boşluk varsa ekteki gibi %20 ile dolduruyoruz. Kaydedip çıkıyoruz.
Ben sadece Dosya adı değiştiği için Dosya Adlarını (Text) olarak değiştirdim.

Dosyayıda Kaydedip çıkıyoruz.
Daha sonra dosyayı açıp makroyu birkez çalıştırdıktan sonra Tüm Linkler değişiyor.

Belki birisine Lazım olur diye verdim.
Genişletmek için tıkla ...

arkadaşım paylaşım için teşekkür ederim.birçok kimsenin işine kesin yarar. tek tek sayfa adlarını yazmaktansa bu kodu kullanmak elbet işe yarar.
 
selam hocalarim ben hollandadan yaziyorum yeni uye oldum

ben 1 52 haftalik ve 52 sayfalik bir tablo yaptim her hafta sonu toplam tutar bir sonraki haftaya devretmesi yani bir sonraki sayfada gorunmesi gerek ve tabiki sonraki sayfalardada surekli devretmesi gerek bunu nasil yapabilirim yardimci olursaniz sevinirim
saygilarimla kolay gelsin
 
sarmas' Alıntı:
selam hocalarim ben hollandadan yaziyorum yeni uye oldum

ben 1 52 haftalik ve 52 sayfalik bir tablo yaptim her hafta sonu toplam tutar bir sonraki haftaya devretmesi yani bir sonraki sayfada gorunmesi gerek ve tabiki sonraki sayfalardada surekli devretmesi gerek bunu nasil yapabilirim yardimci olursaniz sevinirim
saygilarimla kolay gelsin
Genişletmek için tıkla ...

Sorunuzun bu konu ile ilgisi yok Yeni bir başlık altında sorunuzu sormanızı öneririm.
 
1mak1mak' Alıntı:
Soruyu sordum sonra Çözdüm.

Öncelikle VBA da Çalışma Kitabında bir Modül ekliyoruz.
daha sonra alttaki Kodu bu Module1 giriyoruz.



Daha Sonra Araçlar>Makro>Yeni Makro Kaydet diyoruz. Onaylıyoruz.

Daha Sonra VBA da Modulun altında açılan Module2 ye ekteki Kodu giriyoruz.



Boşluk varsa ekteki gibi %20 ile dolduruyoruz. Kaydedip çıkıyoruz.
Ben sadece Dosya adı değiştiği için Dosya Adlarını (Text) olarak değiştirdim.

Dosyayıda Kaydedip çıkıyoruz.
Daha sonra dosyayı açıp makroyu birkez çalıştırdıktan sonra Tüm Linkler değişiyor.

Belki birisine Lazım olur diye verdim.
Genişletmek için tıkla ...
Peki diyelim ki F: sürücüsünde xyz klasörüne bağlı köprülerimiz var. Fakat bu F: sürücüsü W: olarak değiştirilmiş. Ama diğer klasör ve altklasör yapısı değişmemiş bunu nasıl halledeceğiz?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst