makro ile çoklu köprü??

[ahmedelizmiri]

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,

 

[ahmedelizmiri]

Ö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.

 

[Necdet]

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.

 

[uzmanamele]

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

 

[Necdet]

hahahaha
Kim tatil modunda değilki Sayın Uzman Amele

 

[ahmedelizmiri]

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

 

[ahmedelizmiri]

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.

 

[uzmanamele]

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.

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ş.

 

[ahmedelizmiri]

ee acemi olduğumuz her halimizden belli yani...

 

[Necdet]

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.

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

Public Sub KopruKaldir()
Sheets("Sayfa2").Select
Cells.Hyperlinks.Delete
End Sub

 

[parametre]

ekleri indiremiyorum guncelleme mumkunmu

 

[ahmedelizmiri]

şuanki pc de kayıtlı değil en kısqa sürede bulup tekrar yukleyeceğim

 

[1mak1mak]

Uzmanından Yardım Bekliyorum

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.

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

Public Sub KopruKaldir()
Sheets("Sayfa2").Select
Cells.Hyperlinks.Delete
End Sub

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

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.

 

[1mak1mak]

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

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

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.

 

[chevmet]

teşekkür ederim

 

[excel_ance]

Teşekkürler.

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.

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.

 

[1mak1mak]

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.

Rica Ederim kolay gelsin.

 

[sarmas]

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

 

[1mak1mak]

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

Sorunuzun bu konu ile ilgisi yok Yeni bir başlık altında sorunuzu sormanızı öneririm.

 

[dragotreis]

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.

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?