Otomatik Köprü

[vivident]

Merhaba

Ekteki dosyamda "ANA SAYFA" sheetinde 1-100'e kadar farlı sütunlarda (B-D-F-H-J...vb) sayılar var. Eğer bu sayılara sahip hücrelerin yanlarındaki hücreler sıfıra eşit değilse, otomatik köprü oluşturabilir mi ? Makro yada formülle bu işlem nasıl yapılır

Tabloyu baz alarak örnek vermek gerekirse
B7 hücresinde "1" var
C7 hücreside sıfıra eşit değil
B7 hücresi 1 nolu sayfaya köprü oluştursun (sayfa adı : 1)

B8 hücresinde "2" var
C8 hücreside sıfıra eşit değil
B8 hücresi 2 nolu sayfaya köprü oluştursun (sayfa adı : 2)

B12 hücresinde "6" var
C12 hücresi ise sıfıra eşit
Hiçbirşey yapmasın

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp çalıştırın. PARÇALAR sayfasında C sütunu doluysa ANASAYFA'da ilgili sayfaya link ekler.

Sub link()
On Error Resume Next
    son = Sheets("PARCALAR").Cells(Rows.Count, "B").End(3).Row

Sheets("ANA SAYFA").Select
For i = 7 To 16
    For j = 2 To Cells(i, Columns.Count).End(xlToLeft).Column Step 2
        If WorksheetFunction.VLookup(Cells(i, j), Sheets("PARCALAR").Range("B3:C" & son), 2, 0) <> "" Then
            Cells(i, j).Select
            ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "'" & Cells(i, j).Value & "'!A1"
        End If
    Next
Next

End Sub

 

[vivident]

Yusuf bey süpersiniz
E:G:I...vs sütunlar için kodda nereye değiştirmem gerekiyor

Birde hücreye link atınca yazı karakteri, boyutunu ve tipini değiştiriyor. bunların değişmemesini sağlayabilirmiyiz

 

[vivident]

Yusuf bey sorumu geri aldım, diğer sütunlara da link atıyormuş, sadece text formatı ile ilgili düzenleme

 

[YUSUF44]

İlk End if satırından önce aşağıdaki satırları ilave ederseniz köprü eklediği hücrelerin alt çizgisini iptal edip font boyutunu 12 yapar:

                Selection.Font.Underline = xlUnderlineStyleNone
                Selection.Font.Size = 12

 

[vivident]

teşekkürler