Kod:
Sub Firma_Ekle()
On Error Resume Next
X = Sheets("Sablon").Cells(65536, 1).End(xlUp).Row
isim = Cells(X, 1)
Sheets("Sablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = InputBox("Firma Adı Gir Muko...!!!")
ActiveSheet.Range("A1").Value = ActiveSheet.Name & " Firmasının Gider Pusulaları"
Sheets("Ana Sayfa").Select
End Sub
Bu makro ile "Sablon" isimli sayfamı "InputBox" değerine göre yeni sayfa haline getirebiliyorum.
İsteğim Şudur.
- InputBox a girilen ismi aynı anda "Ana Sayfa" isimli sayfamın B2 hücresinden başlıyarak yazması ve her sayfa eklendiğinde bir alt satıra geçmesi.
- Aynı isimden sayfa olup olmadığını kontrol etmesi var ise uyarı verip kaydetmemesi
- Ana Sayfamdaki "Firma Ay Verilerini Getir" butonuna bastığımda tüm sayfalarda olan ay toplamlarını "Ana Sayfamdaki" ilgili firmaların ilgili aylarına aktarması
Teşekkürler...
İyi geceler istediğiniz bir kısmı yapılmıştır aynı sayfa ismi ekleme engellenmiştir örneği inceleyip tekrar dönüş yaparsanız sevinirim.
DUAYEN....
(08/04/2012, 01:54)DUAYEN yazdı: [ -> ]İyi geceler istediğiniz bir kısmı yapılmıştır aynı sayfa ismi ekleme engellenmiştir örneği inceleyip tekrar dönüş yaparsanız sevinirim.
DUAYEN....
Teşekkür ederim
Gece gece sıkıntı olmaz ise
- InputBox a girilen ismi aynı anda "Ana Sayfa" isimli sayfamın B2 hücresinden başlıyarak yazması ve her sayfa eklendiğinde bir alt satıra geçmesi.
Bunuda yapabilme şansınız varmı acaba
Sadece ana sayfaya , sayfa isimlerinimi almak istiyorsunuz.
(08/04/2012, 02:42)DUAYEN yazdı: [ -> ]Sadece ana sayfaya , sayfa isimlerinimi almak istiyorsunuz.
- eklenen sayfaları "Ana Sayfa" da alt alta eklemiyor sürekli B2 hüzcresi üzerine yazıyor
Merhaba sizin değişik bir örnek yaptım örneği inceleyiniz sizin içinde uygunsa örnek birlikte geliştiririz.
DUAYEN...