otomatik köprü atma

[ayemenici]

arkadaşlar hazırladığım exell dosyasında sayfa1 de A10 hücresinden sonra eklenen her hücre değerine otomatik olarak yeni bir sayfa ekletiyorum

bu sayfalara aynı zamanda otomatik olarak bu hücrelerden köprü atabilirmiyim.

 

[hamitcan]

Not:Kodu, Sayfa1'in kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row < 10 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
        ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", _
            SubAddress:=Target.Text & "!A1", TextToDisplay:=Target.Text
End Sub

 

[ayemenici]

öncelikle teşekkürler hamitcan kardeş

söylediğini yaptım çalışmadı hata veriyor benim kodum aşağıdaki gibi


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("a:b")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True

Application.ScreenUpdating = False
On Error Resume Next
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
On Error GoTo Devam
Sheets(Target.Text).Select
MsgBox "BU İSİMDE BİR SAYFA MEVCUTTUR.", vbCritical
Sheets("bayi").Select
Target.Select
Application.ScreenUpdating = True
Exit Sub
Devam:
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Target.Text
Sheets("bayi").Select
Range("A10:A100").Select
Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A10").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub


Private Sub CommandButton1_Click()
FİRMAEKLE.Show
End Sub
Option Explicit

Private Sub Worksheet_Deactivate()
Application.OnKey "{del}"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
Application.OnKey "{del}", "mesaj"
Else
Application.OnKey "{del}"
End If
End Sub

 

[ayemenici]

hamitcan kardeş çok teşekkür ederim kodda küçük bir değişiklik yaptım çalıştır.

saolasın

 

[hamitcan]

Kusura bakmayın ama birbirinden farklı iki soru sormuşsunuz. Birinci sorunuzun yanıtını verdiğimi düşünüyorum.