DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
İyi Bayramlar dilerim...j = 1
For i = 1 To Sayfa1.Shapes.Count
Sayfa1.Shapes(i).Select
With Selection
If .Value = xlOn Then
Sayfa1.Range("L" & j) = Sayfa1.Shapes(i).AlternativeText
j = j + 1
End If
End With
Next