yeni sayfa açarken başka sayfaya link

[akd44]

saygı değer hocalarım sizlerden şunu rica edecegim
ben yeni firma eklediğim zaman hareket listesine otomatik link atsın
ilgi ve alakanıza şimdiden çok teşekkür ederim

 

[akd44]

LÜtfen Yardimmmm

 

[N.Ziya Hiçdurmaz]

Yanıt

Hareket listesi sayfasına kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SAY, S As Long
[B6:B1000].ClearContents
For SAY = 4 To Sheets.Count
S = [B65536].End(3).Row
Range("B" & S + 1) = Sheets(SAY).Name
If Target = Sheets(SAY).Name Then
Sheets(Target.Text).Select
End If
Next
End Sub

 

[Mesut Gündüz]

bende takip ediyorum.ilginç bir program olmuş.yardımcı olmak isterdim ama fazla bilmiyorum.

Saygılar,
MG

 

[Mesut Gündüz]

çalıştı bunu bende kullanacağım.teşekür ederim.

 

[akd44]

Hareket listesi sayfasına kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SAY, S As Long
[B6:B1000].ClearContents
For SAY = 4 To Sheets.Count
S = [B65536].End(3).Row
Range("B" & S + 1) = Sheets(SAY).Name
If Target = Sheets(SAY).Name Then
Sheets(Target.Text).Select
End If
Next
End Sub

SN:V.Basic For Applications ÇOK AMA ÇOK TEŞEKKÜR EDERİM ELLERİNİZ DERT GÖRMESİN:bravo:

 

[N.Ziya Hiçdurmaz]

Bişey değil.