Sayfa Kopyalama ve Veri Aktarımı
Tarih
08/04/2012 00:30
Konu Sahibi
drummers
Yorumlar
19
Okunma
4057
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
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...


Ek Dosyalar
Gider Pusulası.rar
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
İ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....
Ek Dosyalar
Gider Pusulası- DYN.rar
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(08/04/2012, 01:54)DUAYEN Adlı Kullanıcıdan Alıntı: İ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....
Ek Dosyalar
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


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
Sadece ana sayfaya , sayfa isimlerinimi almak istiyorsunuz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(08/04/2012, 02:42)DUAYEN Adlı Kullanıcıdan Alıntı: 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.
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Çözüldü 
Merhaba sizin değişik bir örnek yaptım örneği inceleyiniz sizin içinde uygunsa örnek birlikte geliştiririz.
Ek Dosyalar
Gider Pusulası- DYN1.rar

DUAYEN...
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 906 15/06/2016, 16:57 atoz112
Çözüldü Sayfadan sayfaya veri aktarımı sitem27 5 630 06/03/2016, 20:55 atoz112
Çözüldü Butonla sayfa bilgilerini başka sayfaya aktarma 53rize 6 771 29/12/2015, 11:14 53rize
Çözüldü Excelde sayfa ekrani yetmis 1 1.224 20/05/2014, 16:12 atoz112
Çözüldü sayfa yazdırma hatası devely 2 1.165 16/03/2014, 03:37 devely


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya