Data sayfasından veri alabilmek

[mebmab]

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.

 

[KAZIMM]

gönderilen dosyayı inceleyiniz
Kayıt et butonunun altına yeni fikir vermesi bakımından örnek ekledim aktarılacak verileri düzenleyebilirsiniz.

 

[spookyfears]

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

 

[mebmab]

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

 

[mebmab]

Abiler mümkünse (F1) (Help) Yardım.

 

[KAZIMM]

kardeş hangi texboxları aktaracaksanız ona göre komutu düzenleyiniz

 

[mebmab]

Ü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.

 

[meslan]

merhaba. Şu kodu dener misiniz istediğiniz. Bu mu?

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.

 

[meslan]

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.

 

[mebmab]

Zaman ayırıp bana yardımcı olduğunuz için emeğinize ve yüreğinize sağlık.
Çok tşk ederim.