Her sayfaya aynı simgeyi yapıştırma

[Kavram]

400 küsür sayfalık bi excel dosyam var, tüm sayfalarda aynı yere ufak bi simge kopyalamak istiyorum. Kolay bir yöntemi olabilir mi? Teşekkürler.

 

[ibayarslan]

Tüm sheetleri seçip simgeyi o alana ekleyebilirsin.

 

[Kavram]

maalesef o şekilde olmuyor

 

[ibayarslan]

Merhaba Kavram,
Simge derken herhangi bir cell'e bir değerin şeklinde atanması ise aşağıdaki code sanırsam işini görür.

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

 

[Kavram]

Teşekkür ederim, ama bir logoyu yapıştırmak istiyorum. (Resim dosyası)

 

[ibayarslan]

Bu sayfaların print edildiğinde eğer gözükmesini istiyorsan çözüm başka.
1-Boş bir sayfa seçip alana onu kopyalarsın ve Sayfa ayarlarından üstte basılacak cell olarak onu gösterebilirsin.
2-Excel 2003 te Footer ve header'a bu simgeleri koymak için bir menu koydular.


Eğer sen çalışma sayfanda bu logonuın gözükmesini istiyorsan aşağıdaki işine yarayabilir.

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

 

[Seyit Tiken]

Sayfa Yapısı + Çalışma Sayfası + Üstte Yinelenecek Satırlar.
Logunu çalışma sayfasına getir. İstenilen hücreye yerleştir. Hücre adreslerini "Üstte Yinelenecek Satırlar"a yazdır(seçtir).

 

[Kavram]

çook teşekkürler.

 

[baygec]

TÞK EDERİM BEN ARADIGIMI BULDUM SAYENDE
KAVRAM
KOLAY GELSİN