veri aktarma

[iaydin20]

arkadaşlar veri aktarmada bilgi eksikliğinden dolayı sıkıntı yaşıyorum arkadaşımızın biri kodları verdi ama verileri sürekli aynı sayfalara aktarıyor nasıl olacağını çözemedim yardımcı olan arkadaşlara teşekkürü bir borç bilirim.

formda arama yaptırdım ama istediğime uygun bi kod bulamadım.


kod;
------------------------------------------------------------------------

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
ComboBox1.RowSource = "VERİ!B3:B" & SV.[B65536].End(3).Row
Exit Sub
End If
ComboBox1.RowSource = ""
For X = 3 To SV.[B65536].End(3).Row
If SV.Cells(X, 2) Like ComboBox1 & "*" Then
ComboBox1.AddItem SV.Cells(X, 2)
End If
Next
End Sub

Private Sub CommandButton1_Click()
ComboBox1 = ""
ComboBox2 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
ComboBox1.SetFocus
MsgBox "YENİ GİRİŞ İÇİN FORMDAKİ TÜM BİLGİLER SİLİNMİŞTİR !", vbInformation
End Sub

Private Sub CommandButton2_Click()
If ComboBox1 = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ !", vbCritical
ComboBox1.SetFocus
Exit Sub: End If
If ComboBox2 = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ !", vbCritical
ComboBox2.SetFocus
Exit Sub: End If
For X = 1 To 5
If Controls("TextBox" & X).Value = Empty Then
MsgBox "EKSİK BİLGİ GİRİŞİ !", vbCritical
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next
Satır = Sheets("CH1").[A65536].End(3).Row + 1
Sheets("CH1").Cells(Satır, 1) = CDate(TextBox1)
Sheets("CH1").Cells(Satır, 2) = TextBox2
Sheets("CH1").Cells(Satır, 3) = ComboBox2 & " - " & TextBox3
Sheets("CH1").Cells(Satır, 4) = IIf(TextBox4 = "", 0, TextBox4 * 1)
Sheets("CH1").Cells(Satır, 5) = IIf(TextBox5 = "", 0, TextBox5 * 1)
Sheets("AR1").Cells(Satır, 1) = CDate(TextBox1)
Sheets("AR1").Cells(Satır, 2) = TextBox2
Sheets("AR1").Cells(Satır, 3) = ComboBox1 & " - " & TextBox3
Sheets("AR1").Cells(Satır, 4) = IIf(TextBox4 = "", 0, TextBox4 * 1)
MsgBox "BİLGİLER AKTARILMIŞTIR !", vbInformation
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub

Private Sub UserForm_Initialize()
Set SV = Sheets("VERİ")
ComboBox1.RowSource = "VERİ!B3:B" & SV.[B65536].End(3).Row
ComboBox2.RowSource = "VERİ!E3:E" & SV.[E65536].End(3).Row
End Sub

--------------------------------------------------------------------------


40 adet CH çalışma sayfası var (CH1,CH2.........CH40)
20 adet AR isimli çalışma sayfası var (AR1,AR2.........AR20)

FORMULÜ NASIL BUNA UYARLAYABİLİRİM ?


:yardim: Ekli dosyayı görüntüle 20190 :yardim:

 

[iaydin20]

arkadaşlar yardımlarınızı bekliyorum....

 

[Korhan Ayhan]

Selamlar,

Lütfen sorularınızı aynı başlık altında sormaya özen gösteriniz.

Aynı sorunuz aşağıdaki linkte.

http://www.excel.web.tr/showthread.php?p=183429#post183429