veriye göre sayfa oluşturmak ve satırları kopyalamak

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bende ekte bir dosya hazırladım. Sayfayı istediğiniz şekilde kopyalayın linkler sayfaya göre ayarlanacaktır. Kod aşağıdadır, Thisworkbook sayfasına yazılmıştır.

[vb:1:78b441fd3c]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
For Each linkler In ActiveWorkbook.ActiveSheet.Hyperlinks
linkler.SubAddress = Right(linkler.SubAddress, Len(linkler.SubAddress) - InStr(linkler.SubAddress, "!"))
Next
End Sub
[/vb:1:78b441fd3c]
 
Katılım
23 Mayıs 2006
Mesajlar
30
LEVENTM sana çok ama çok teşekkür ederim artık bu site için yapmam gereken ne varsa yapmaya hazırım. :yazici: işmi öyle bir kolaylaştırdın ki en az 20 günümü kurtardın ... bir komutun artık 40 yıl hatırı var.
 
Üst