Makromu geliştirme hakkında

[td877]

Merhaba ustalarım,

Yeni başladım macro kod yazmaya icmal sayfamda yazan sekme isimleri listesini sekmelere köprülemeye çalışıyorum. Makroda şunu yapmaya çalışıyorum; B3:B36 satırları boş değilse, satırda yazan değer ismindeki sekme ile köprüle. Boşsa hiçbirşey yapma boş bırak.

B3:B36 arasında satırlarım var ama diyelim ki 33 tane sekmem yok sadece 5 sekmem var. 5 sekmemi çok güzel köprülüyor kalan satırlara !A1 yazıyor.

Sadece sekme varsa köprülemesini nasıl sağlarım.

Sub kopru()
Dim mysheet As String
Dim myrange As Range
Set myrange = ThisWorkbook.Sheets("BİRİM FİYAT İCMALİ").Range("B3:B36")

If Not IsEmpty(Range("B3:B36")) Then
For Each cell In myrange
ThisWorkbook.Sheets("BİRİM FİYAT İCMALİ").Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:="'" & cell.Value & "'!A1"
Next cell
Else

End If

End Sub

 

[Muzaffer Ali]

ThisWorkbook.Sheets("BİRİM FİYAT İCMALİ").Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:="'" & cell.Value & "'!A1"

satırını silin yerine aşağıdakini kopyalayın

if not cell.value="" then ThisWorkbook.Sheets("BİRİM FİYAT İCMALİ").Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:="'" & cell.Value & "'!A1"

 

[td877]

Sayın dalgalikur çok teşekkür ederim hayırlı çalışmalar dilerim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.