• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excelde makro kullanarak bir çalışma sayfasından diğer çalışma sayfasına veri girme

N

Nedimgs

Katılım
3 Mayıs 2010
Mesajlar
8
Excel Vers. ve Dili
Microsoft Excel 2010 Türkçe
Merhaba arkadaşlar, öncelikle ben bu sitede yeniyim başım sıkıştığımda kendimi burda buluyorum umarım size fazla zahmet çıkarmam.bu sebepten dolayı beni affedin..
elimde bir excel dosyası var ve sayfa 1 de makro kullanrak form oluşturdum bu forma girilen değerleri sayfa 2 de tasarladığım alanlara kaydetmek istiyorum
Yani sayfa bir de bilgi girişi olacak ama kaynak sayfa 2 de olacak. bunu bir türlü sağlayamadım çok yeniyim bu konuda lütfen yardım edin saygılarımla
 
Örnek Ekleyerek Örnek üzerinde ne istediğini yazman gerekir.
Bu şekilde cevap alman zor..
Ne demek istediğin tam anlaşılmıyor.
 
dosya ekte

dosyayı ekledim.
burda ana menü de bilgi girişi dedikten sonra örneğin cari kart tanımlamak istioyrum cari karta tıkladığımda önüme cari bilgileri için bir form geliyor ve bu forma bilgi girişi yaptığımda bulunduğu sayfaya bilgileri giriyor ben diğer sayfaya yani cariler sayfasında tasarladığım alana bilgileri girmek istiyorum.umarım sorum anlaşılmıştır saygılar.
 

Ekli dosyalar

Nedimgs' Alıntı:
dosyayı ekledim.
burda ana menü de bilgi girişi dedikten sonra örneğin cari kart tanımlamak istioyrum cari karta tıkladığımda önüme cari bilgileri için bir form geliyor ve bu forma bilgi girişi yaptığımda bulunduğu sayfaya bilgileri giriyor ben diğer sayfaya yani cariler sayfasında tasarladığım alana bilgileri girmek istiyorum.umarım sorum anlaşılmıştır saygılar.
Genişletmek için tıkla ...

merhaba
userform2'nin kod bölümündeki kodları
Kod: 
Private Sub CommandButton1_Click()
[COLOR="Red"]Sheets("CARİLER").Select[/COLOR]
Range("B5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("b5").Value = "" Then
Range("b5").Value = 1
Range("b5").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
ActiveCell.Offset(0, 6).Value = TextBox6.Text
ActiveCell.Offset(0, 7).Value = TextBox7.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
aciklama = "Kayıt Başarılı Bir Şekilde Yapıldı."
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Cari Kart Kayıt İşlemi"
MsgBox aciklama, buton, baslik
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
bu kodlar ile değiştiriniz.
kırmızı yer eklendi sadece
 
İhsan Tank' Alıntı:
merhaba
userform2'nin kod bölümündeki kodları
Kod: 
Private Sub CommandButton1_Click()
[COLOR="Red"]Sheets("CARİLER").Select[/COLOR]
Range("B5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("b5").Value = "" Then
Range("b5").Value = 1
Range("b5").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
ActiveCell.Offset(0, 6).Value = TextBox6.Text
ActiveCell.Offset(0, 7).Value = TextBox7.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
aciklama = "Kayıt Başarılı Bir Şekilde Yapıldı."
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Cari Kart Kayıt İşlemi"
MsgBox aciklama, buton, baslik
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
bu kodlar ile değiştiriniz.
kırmızı yer eklendi sadece
Genişletmek için tıkla ...

Çok sağolun. istediğim bu birde kayıt sonrasında ana menüde kalsın cariler sayfasına gitmesin onunda bir çözümü varmı acaba
 
Nedimgs' Alıntı:
Çok sağolun. istediğim bu birde kayıt sonrasında ana menüde kalsın cariler sayfasına gitmesin onunda bir çözümü varmı acaba
Genişletmek için tıkla ...

aslında o aklıma geldi'de aynı sayfadan da cari kart açmak için buton eklemişsiniz ondan dolayı bende bir işlem yapmadım. tam açıklama eklerseniz ona göre yardımcı olmaya çalışayım
 
İhsan Tank' Alıntı:
aslında o aklıma geldi'de aynı sayfadan da cari kart açmak için buton eklemişsiniz ondan dolayı bende bir işlem yapmadım. tam açıklama eklerseniz ona göre yardımcı olmaya çalışayım
Genişletmek için tıkla ...

ana menüden cari tanımlayacağım ve kaydedeceğim ama cariler sayfasına gitmesin. anamenüde kalsın. Başka açıklaması yok sanırım :)
 
kusura bakmayın hocam son 1 sorum olaaktı sevinçten sormayı unuttum :)
ana menüde bir buton oluşturmuşum işlemleri yapabilmek için.ben o butona ihtiyaç duymadan. ana menü sayafasını açar açmaz yada excel dosyasını çalıştırır çalıştırmaz ana menü formunun karşıma gelemsini veya excel çalışma sayfasına gömülü olmasını istiyorum bununda bir çözümü varmıdır acaba. çok yordum sizi hakkınızı helal edin
 
Nedimgs' Alıntı:
kusura bakmayın hocam son 1 sorum olaaktı sevinçten sormayı unuttum :)
ana menüde bir buton oluşturmuşum işlemleri yapabilmek için.ben o butona ihtiyaç duymadan. ana menü sayafasını açar açmaz yada excel dosyasını çalıştırır çalıştırmaz ana menü formunun karşıma gelemsini veya excel çalışma sayfasına gömülü olmasını istiyorum bununda bir çözümü varmıdır acaba. çok yordum sizi hakkınızı helal edin
Genişletmek için tıkla ...

merhaba
kitabınızın thisworkbook bölümüne
Kod: 
Private Sub Workbook_Open()
UserForm3.Show
End Sub
bunu
yada
bir module
Kod: 
Sub auto_open()
UserForm3.Show
End Sub
bu kod'u kullanınız
 
hocam çok çok teşekkür ederim fazlasyıla yardım ettiniz, allah sizden razı olsun.
 
selamlar Nedimgs bey programınız baya kullanışlı rica etsem programın diğer butonlar aktif ise paylaşabilir misiniz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst