Skip to main content

AccessTr.neT


Sayfa Kopyalama ve Veri Aktarımı

Sayfa Kopyalama ve Veri Aktarımı

Çözüldü #7
(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.
Gider Pusulası- DYN1.rar

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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
- 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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #9
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ı
Img-grin
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
En son eklediğim örnek doğrultusundamı gideceksin.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #11
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 Img-grin

Gider Pusulası- DYN.rar


Bu arada yardımlar için teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 08/04/2012, 22:08, Düzenleyen: drummers.
Cevapla
Çözüldü #12
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

userformun son hali budur
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da