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
Çözüldü #2
İ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
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #3
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Sadece ana sayfaya , sayfa isimlerinimi almak istiyorsunuz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #5
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 08/04/2012, 20:53, Düzenleyen: drummers.
Cevapla
Çözüldü #6
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...
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task