Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
08/04/2012 00:30
Konu Sahibi
drummers
Yorumlar
19
Okunma
4904
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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
16/03/2017,17:22
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
16/03/2017,17:22
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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
16/03/2017,17:22
Çö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
Çözüldü Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 1.327 15/06/2016, 16:57 atoz112
Çözüldü Sayfadan sayfaya veri aktarımı sitem27 5 945 06/03/2016, 20:55 atoz112
Çözüldü Butonla sayfa bilgilerini başka sayfaya aktarma 53rize 6 1.189 29/12/2015, 11:14 53rize
Çözüldü Excelde sayfa ekrani yetmis 1 1.439 20/05/2014, 16:12 atoz112
Çözüldü sayfa yazdırma hatası devely 2 1.403 16/03/2014, 03:37 devely

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.