Data sayfasından veri alabilmek

Katılım
28 Aralık 2008
Mesajlar
32
Excel Vers. ve Dili
2003-2007 TÜRKÇE
Arkadaşlar Merhaba

Basıt bir nakliye takip sayfası yapmaya çalışıyorum. Data sayfamdaki bilgileri gönderici firmaların sayfalarına aktarılmasını istiyorum. İlgili örneklere baktım fakat bir türlü uyarlayamadım dosya ektedir. Bana yardımcı olurmusunuz.
 

Ekli dosyalar

Katılım
20 Mart 2006
Mesajlar
99
Excel Vers. ve Dili
OFFICE-2003 TÜRKÇE
gönderilen dosyayı inceleyiniz
Kayıt et butonunun altına yeni fikir vermesi bakımından örnek ekledim aktarılacak verileri düzenleyebilirsiniz.
 

Ekli dosyalar

Katılım
26 Eylül 2006
Mesajlar
1
Excel Vers. ve Dili
excel 2003 türkçe
Yardım

Arkadaşlar merhaba
Ekteki dosyada 4 sayfa var
Ben Anatablodaki verilerin Bölge adlarına göre ilgili sayfalara aktarılmasına çalıştım ama yapamadım. Bir de anatabloya veri girildiğinde aynı şarta göre diğer sayfların güncellenmesini istiyorum.
Yardımcı olursanız sevinirim
 

Ekli dosyalar

Katılım
28 Aralık 2008
Mesajlar
32
Excel Vers. ve Dili
2003-2007 TÜRKÇE
gönderilen dosyayı inceleyiniz
Kayıt et butonunun altına yeni fikir vermesi bakımından örnek ekledim aktarılacak verileri düzenleyebilirsiniz.
Üstat mantığını anladım ama düzenlemesini beceremedim. senin gönderdiğini denedim bir yerde eksiğim var ama bulamadım
 
Katılım
28 Aralık 2008
Mesajlar
32
Excel Vers. ve Dili
2003-2007 TÜRKÇE
Abiler mümkünse (F1) (Help) Yardım.
 
Katılım
20 Mart 2006
Mesajlar
99
Excel Vers. ve Dili
OFFICE-2003 TÜRKÇE
kardeş hangi texboxları aktaracaksanız ona göre komutu düzenleyiniz
 
Katılım
28 Aralık 2008
Mesajlar
32
Excel Vers. ve Dili
2003-2007 TÜRKÇE
Üstadım göndermiş olduğum dosyada bir örnek yapabilirmisin. Sizden istemiş olduğum bu bilgiyi şu anda en az 5 kişi forum arıyor. Ama akıllıca bir örnek yok.
 
Katılım
5 Kasım 2007
Mesajlar
444
Excel Vers. ve Dili
2003 TR
merhaba. Şu kodu dener misiniz istediğiniz. Bu mu?
Kod:
Private Sub CommandButton1_Click()
    son_dolu_satir = Sheets("Data").Cells(65536, 1).End(xlUp).Row
    son_bos_satir = son_dolu_satir + 1
    Cells(son_bos_satir, 1) = son_dolu_satir - 1
    Cells(son_bos_satir, 2) = TextBox1.Value
    Cells(son_bos_satir, 3) = TextBox2.Value
    Cells(son_bos_satir, 4) = TextBox3.Value
   For i = 5 To 30
    Cells(son_bos_satir, i) = Me.Controls("ComboBox" & i - 4).Value
    Next
  Set gnfrm = Sheets(ComboBox3.Value)
  snstr = gnfrm.[a65536].End(3).Row + 1
   gnfrm.Cells(snstr, 1) = (snstr - 1) - 1
    gnfrm.Cells(snstr, 2) = TextBox1.Value
    gnfrm.Cells(snstr, 3) = TextBox2.Value
    gnfrm.Cells(snstr, 4) = TextBox3.Value
   For i = 5 To 30
    gnfrm.Cells(snstr, i) = Me.Controls("ComboBox" & i - 4).Value
    Next
    Sheets("Data").Select
    MsgBox "veriniz kaydedildi"
    Range("AE2").Select
End Sub
Not: Kod kısaltması dolayısıyla combolarda değişiklik yapıldı. Karışıklık varsa düzeltiniz.
 

Ekli dosyalar

Son düzenleme:
Katılım
5 Kasım 2007
Mesajlar
444
Excel Vers. ve Dili
2003 TR
Arkadaşlar merhaba
Ekteki dosyada 4 sayfa var
Ben Anatablodaki verilerin Bölge adlarına göre ilgili sayfalara aktarılmasına çalıştım ama yapamadım. Bir de anatabloya veri girildiğinde aynı şarta göre diğer sayfların güncellenmesini istiyorum.
Yardımcı olursanız sevinirim
Ekteki dosyayı inceleyiniz.
 

Ekli dosyalar

Katılım
28 Aralık 2008
Mesajlar
32
Excel Vers. ve Dili
2003-2007 TÜRKÇE
Zaman ayırıp bana yardımcı olduğunuz için emeğinize ve yüreğinize sağlık.
Çok tşk ederim.
 
Üst