Skip to main content

AccessTr.neT


Sayfa Kopyalama ve Veri Aktarımı

Sayfa Kopyalama ve Veri Aktarımı

Çözüldü #1
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 08/04/2012, 00:42, Düzenleyen: drummers.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Sayfa Kopyalama ve Veri Aktarımı - Yazar: drummers - 08/04/2012, 00:30
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 01:54
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 02:42
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 12:44
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 22:00
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 08/04/2012, 23:29
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 09/04/2012, 00:33
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 09/04/2012, 10:35
Cvp: Sayfa Kopyalama ve Veri Aktarımı - Yazar: DUAYEN - 09/04/2012, 12:31
Task