+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfa Kopyalama ve Veri Aktarımı (/konu-sayfa-kopyalama-ve-veri-aktarimi.html)
Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 08/04/2012
(08/04/2012, 12:44)DUAYEN yazdı: Merhaba sizin değişik bir örnek yaptım örneği inceleyiniz sizin içinde uygunsa örnek birlikte geliştiririz.
DUAYEN...
evet bu daha kullanışlı olmuş, ilk yazdığınız koddaki aynı sayfa ismi varsa uyarı verip kaydetmesin seçeneğide eklenirse iş tamam olacak sanırım.
İlginize teşekkürler
Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 08/04/2012
- eklenen sayfaları "Ana Sayfa" da alt alta eklemiyor sürekli B2 hüzcresi üzerine yazıyor
- Eklenen sayfalarda aynı isim varmı kontrolüde lazım
Teşekkürler
Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 08/04/2012
sonsatir = veris.Range("A65536").End(3).Row + 1
bunu
sonsatir = veris.Range("B65536").End(3).Row + 1 böyle değiştirdim, oldu
Şimdi geriye sadece eklenen sayfaların var olup olmadığı ve varsa uyarı vermesi kaldı
Cvp: Sayfa Kopyalama ve Veri Aktarımı - DUAYEN - 08/04/2012
En son eklediğim örnek doğrultusundamı gideceksin.
Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 08/04/2012
Ben örneği biraz değiştirdim ekliyorum bunu üzrinden gidelim.
Textbox1 e girilen veri sayfa olacak ve daha önce eklenen sayfalarda o isim varsa uyarı verecek. Budur
Bu arada yardımlar için teşekkürler
Cvp: Sayfa Kopyalama ve Veri Aktarımı - drummers - 08/04/2012
Kod:
Private Sub CommandButton1_Click()
Sheets("Sablon").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (TextBox1.Text)
ActiveSheet.Range("A1").Value = (TextBox1.Value) & " İsimli Firmanın Gider Pusulaları"
ActiveSheet.Range("M25").Value = (TextBox1.Value)
ActiveSheet.Range("M27").Value = (TextBox2.Value)
ActiveSheet.Range("M29").Value = (TextBox3.Value)
ActiveSheet.Range("M31").Value = (TextBox4.Value)
ActiveSheet.Range("M33").Value = (TextBox5.Value)
ActiveSheet.Range("G3").Value = (TextBox6.Value)
Call VeriSayfasinaKaydet
MsgBox ("Yeni firma başarıyla oluşturuldu.")
Sheets("Ana Sayfa").Select
Unload Me
End Sub
Private Sub VeriSayfasinaKaydet()
Dim verisayfasi As Worksheet
Set veris = Worksheets("Ana Sayfa")
sonsatir = veris.Range("B65536").End(3).Row + 1
veris.Range("B" & sonsatir) = TextBox1.Value 'ADI
End Sub
Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Proper(TextBox1) ' bu satır sadece ilk harfleri büyük yapar
End Sub
Private Sub TextBox2_Change()
TextBox2 = WorksheetFunction.Proper(TextBox2) ' bu satır sadece ilk harfleri büyük yapar
End Sub
Private Sub TextBox4_AfterUpdate()
TextBox4.Text = Format(TextBox4.Text, "0## 0## 0###")
End Sub
Private Sub TextBox3_AfterUpdate()
TextBox3.Text = Format(TextBox3.Text, "0000 0000 000")
End Sub