AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Sayfa Kopyalama ve Veri Aktarımı

1 2 3 4
08/04/2012, 00:30

drummers

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...


Gider Pusulası.rar
08/04/2012, 01:54

DUAYEN

İ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....
Gider Pusulası- DYN.rar
08/04/2012, 02:12

drummers

(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....
Gider Pusulası- DYN.rar

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
08/04/2012, 02:42

DUAYEN

Sadece ana sayfaya , sayfa isimlerinimi almak istiyorsunuz.
08/04/2012, 02:45

drummers

(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
08/04/2012, 12:44

DUAYEN

Merhaba sizin değişik bir örnek yaptım örneği inceleyiniz sizin içinde uygunsa örnek birlikte geliştiririz.
Gider Pusulası- DYN1.rar

DUAYEN...
1 2 3 4