DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub ekle()
adet = Sheets.Count
For i = 1 To adet
'çeşitli kombinasyonlar...
Sheets(i).Cells(1, 1).Value = "excel"
Sheets(i).Cells(2, 1).Value = Sheets(i).Cells(2, 1).Value & " " & " adet"
Sheets(i).Cells(3, 1).Value = Chr(169)
Next
Sheets(1).Select
End Sub
Sub ekle()
adet = Sheets.Count
For i = 1 To adet
Sheets(i).Select
'ekler
ActiveSheet.Pictures.Insert("C:\Documents\ismailba\My Pictures\Sample.jpg").Select
Selection.ShapeRange.ScaleWidth 0.26, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.26, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 712.5
Next
End Sub