web linklerinin sonundaki id leri 1 er arttıran makro çalışması

[XExcel]

selam ekte çok basitçe açıkladım, linklerin sonundaki id rakamlarını teker teker arttıracak makro lazım bu basit projede bana yardımcı olurmuusnuz teşekürler

 

[f_desat]

Makroya gerek kalamadan formülle problemin çözüldü sanırım sadece değer değiştirici buton kullandım.

 

[XExcel]

Makroya gerek kalamadan formülle problemin çözüldü sanırım sadece değer değiştirici buton kullandım.

olmamış ya, a sütununa sonuçların tümünü listelemiyor

 

[f_desat]

Macro ile artıma:

Sub artir()
Dim s, f, t, art As Integer
s = Sheets("Sayfa1").Range("c1").Value
f = Sheets("Sayfa1").Range("c2").Value
k = Sheets("Sayfa1").Range("c3").Value
Range("a1").Activate
u = s
For t = s To (f - 1)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.sehirler.com/Display.aspx?ual_id=" & s & ""
ActiveCell.Offset(1, 0).Select
s = s + k
Next t
End Sub

 

[XExcel]

teşekür ederim üstadım çok güzel olmuş