Satir Aktaran Kodlarda Hata

[Erdinç FIRTINA]

Değerli üyeler,
Forumdan yararlanarak düzenlenen aşağıdaki kodlarla veriler belirtilen adrese atanıyor. Ancak, aktarılmak istenen satırın başlangıç sütunu (BAŞLIKLAR HARİÇ), SIRA NO için DQ2, ilk verinin aktarılacağı sütun ise bir sağındaki DR2 sütunudur. Ancak, kodlar bu işlemi hatalı gerçekleştiriyor. Örnğin; sıra nosuna DQ2 den başlamasına rağmen, ilk veriyi DR61 den başlayarak aktarıyor. İkinci satırı ise DR110 uncu satır olarak aktarıyor.

Ayrıca aşağıdaki satırlarla sıralama yaptırmak istiyorum ama onu da yapmıyor. Hata veriyor.

Selection.Sort Key1:=Range("DR"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Yardımlarınız için şimdiden teşekkürler!!!


Private Sub CommandButton1_Click()
If ComboBox51.Value = "" Then
MsgBox "LÜTFEN! ÖNCELİKLE YILIN AYINI SEÇİNİZ, LİSTEDEKİ İSME DAHA SONRA TIKLAYINIZ"
ComboBox51.SetFocus
Exit Sub
End If
Sheets(ComboBox51.Text).Select
Range("DQ1").Select
'b1 hücresine giriş değerini atıyoruz
Range("DQ1") = "SIRA NO"
Range("DR1") = "TARİH"
Range("DS1") = "DERS"
Range("DT1") = "TEK - ÇİFT"
Range("DU1") = "ADI SOYADI 1"
Range("DV1") = "ADI SOYADI 2"
Range("DW1") = "BRANŞI"
Range("DX1") = "TARİH"
Range("DY1") = "DERS"
Range("DZ1") = "TEK - ÇİFT"
Range("EA1") = "ADI SOYADI 1"
Range("EB1") = "ADI SOYADI 2"
Range("EC1") = "BRANŞI"
Range("ED1") = "TARİH"
Range("EE1") = "DERS"
Range("EF1") = "TEK - ÇİFT"
Range("EG1") = "ADI SOYADI 1"
Range("EH1") = "ADI SOYADI 2"
Range("EI1") = "BRANŞI"
Range("EJ1") = "TARİH"
Range("EK1") = "DERS"
Range("EL1") = "TEK - ÇİFT"
Range("EM1") = "ADI SOYADI 1"
Range("EN1") = "ADI SOYADI 2"
Range("EO1") = "BRANŞI"
Range("EP1") = "TARİH"
Range("EQ1") = "DERS"
Range("ER1") = "TEK - ÇİFT"
Range("ES1") = "ADI SOYADI 1"
Range("ET1") = "ADI SOYADI 2"
Range("EU1") = "BRANŞI"
Range("EV1") = "TARİH"
Range("EW1") = "DERS"
Range("EX1") = "TEK - ÇİFT"
Range("EY1") = "ADI SOYADI 1"
Range("EZ1") = "ADI SOYADI 2"
Range("FA1") = "BRANŞI"
Range("FB1") = "TARİH"
Range("FC1") = "DERS"
Range("FD1") = "TEK - ÇİFT"
Range("FE1") = "ADI SOYADI 1"
Range("FF1") = "ADI SOYADI 2"
Range("FG1") = "BRANŞI"
Range("FH1") = "TARİH"
Range("FI1") = "DERS"
Range("FJ1") = "TEK - ÇİFT"
Range("FK1") = "ADI SOYADI 1"
Range("FL1") = "ADI SOYADI 2"
Range("FM1") = "BRANŞI"
Range("FN1") = "TARİH"
Range("FO1") = "DERS"
Range("FP1") = "TEK - ÇİFT"
Range("FQ1") = "ADI SOYADI 1"
Range("FR1") = "ADI SOYADI 2"
Range("FS1") = "BRANŞI"
Range("FT1") = "TARİH"
Range("FU1") = "DERS"
Range("FV1") = "TEK - ÇİFT"
Range("FW1") = "ADI SOYADI 1"
Range("FX1") = "ADI SOYADI 2"
Range("FY1") = "BRANŞI"
If ComboBox1.Value = "" Then
MsgBox "VERİ GİRİNİZ"
Range("DQ1").Select
Unload Me
UserForm5.Show
End If
For sira = 1 To WorksheetFunction.CountA(Range("DR1R65536"))
Range("DQ" & sira + 1) = sira
Next
say = WorksheetFunction.CountA(Range("DR1:FY65536")) + 1
Range("DR" & say) = ComboBox1.Value
Range("DS" & say) = ComboBox2.Value
Range("DT" & say) = ComboBox3.Value
Range("DU" & say) = ComboBox4.Value
Range("DV" & say) = ComboBox5.Value
Range("DW" & say) = TextBox1.Value
Range("DX" & say) = ComboBox1.Value
Range("DY" & say) = ComboBox2.Value
Range("DZ" & say) = ComboBox3.Value
Range("EA" & say) = ComboBox4.Value
Range("EB" & say) = ComboBox5.Value
Range("EC" & say) = TextBox1.Value
Range("ED" & say) = ComboBox1.Value
Range("EE" & say) = ComboBox2.Value
Range("EF" & say) = ComboBox3.Value
Range("EG" & say) = ComboBox4.Value
Range("EH" & say) = ComboBox5.Value
Range("EI" & say) = TextBox1.Value
Range("EJ" & say) = ComboBox1.Value
Range("EK" & say) = ComboBox2.Value
Range("EL" & say) = ComboBox3.Value
Range("EM" & say) = ComboBox4.Value
Range("EN" & say) = ComboBox5.Value
Range("EO" & say) = TextBox1.Value
Range("EP" & say) = ComboBox1.Value
Range("EQ" & say) = ComboBox2.Value
Range("ER" & say) = ComboBox3.Value
Range("ES" & say) = ComboBox4.Value
Range("ET" & say) = ComboBox5.Value
Range("EU" & say) = TextBox1.Value
Range("EV" & say) = ComboBox1.Value
Range("EW" & say) = ComboBox2.Value
Range("EX" & say) = ComboBox3.Value
Range("EY" & say) = ComboBox4.Value
Range("EZ" & say) = ComboBox5.Value
Range("FA" & say) = TextBox1.Value
Range("FB" & say) = ComboBox1.Value
Range("FC" & say) = ComboBox2.Value
Range("FD" & say) = ComboBox3.Value
Range("FF" & say) = ComboBox4.Value
Range("FF" & say) = ComboBox5.Value
Range("FG" & say) = TextBox1.Value
Range("FH" & say) = ComboBox1.Value
Range("FI" & say) = ComboBox2.Value
Range("FJ" & say) = ComboBox3.Value
Range("FK" & say) = ComboBox4.Value
Range("FL" & say) = ComboBox5.Value
Range("FM" & say) = TextBox1.Value
Range("FN" & say) = ComboBox1.Value
Range("FO" & say) = ComboBox2.Value
Range("FP" & say) = ComboBox3.Value
Range("FQ" & say) = ComboBox4.Value
Range("FR" & say) = ComboBox5.Value
Range("FS" & say) = TextBox1.Value
Range("FT" & say) = ComboBox1.Value
Range("FU" & say) = ComboBox2.Value
Range("FV" & say) = ComboBox3.Value
Range("FW" & say) = ComboBox4.Value
Range("FX" & say) = ComboBox5.Value
Range("FY" & say) = TextBox1.Value
Columns("DQ:FY").EntireColumn.AutoFit
Columns("DR:FY").Select
Selection.Sort Key1:=Range("DR"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets(ComboBox51.Text).Select
ComboBox51.SetFocus
Range("DR1").Select
ActiveWorkbook.Save
Unload Me
UserForm5.Show
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki komut yüzünden verileriniz hatalı yerlere aktarılıyor.
Bu satırı silip altındaki satırlarda bulunan kısımlarıda "sira" olarak değiştirip denermisiniz.

say = WorksheetFunction.CountA(Range("DR1:FY65536")) + 1

 

[Orion1]

İlgili yerdeki kodları silip.Alattaki kırmızı kodları yapıştırıp deneyiniz.

[B][COLOR="Red"]say = Cells(65536, "DR").End(xlUp).Row + 1[/COLOR][/B]
For sira = 1 To [B][COLOR="red"]Cells(65536, "DR").End(xlUp).Row[/COLOR][/B]
Range("DQ" & sira + 1) = sira
Next
Range("DR" & say) = ComboBox1.Value
Range("DS" & say) = ComboBox2.Value
Range("DT" & say) = ComboBox3.Value
Range("DU" & say) = ComboBox4.Value
Range("DV" & say) = ComboBox5.Value
Range("DW" & say) = TextBox1.Value
Range("DX" & say) = ComboBox1.Value
Range("DY" & say) = ComboBox2.Value
Range("DZ" & say) = ComboBox3.Value
Range("EA" & say) = ComboBox4.Value
Range("EB" & say) = ComboBox5.Value
Range("EC" & say) = TextBox1.Value
Range("ED" & say) = ComboBox1.Value
Range("EE" & say) = ComboBox2.Value
Range("EF" & say) = ComboBox3.Value
Range("EG" & say) = ComboBox4.Value
Range("EH" & say) = ComboBox5.Value
Range("EI" & say) = TextBox1.Value
Range("EJ" & say) = ComboBox1.Value
Range("EK" & say) = ComboBox2.Value
Range("EL" & say) = ComboBox3.Value
Range("EM" & say) = ComboBox4.Value
Range("EN" & say) = ComboBox5.Value
Range("EO" & say) = TextBox1.Value
Range("EP" & say) = ComboBox1.Value
Range("EQ" & say) = ComboBox2.Value
Range("ER" & say) = ComboBox3.Value
Range("ES" & say) = ComboBox4.Value
Range("ET" & say) = ComboBox5.Value
Range("EU" & say) = TextBox1.Value
Range("EV" & say) = ComboBox1.Value
Range("EW" & say) = ComboBox2.Value
Range("EX" & say) = ComboBox3.Value
Range("EY" & say) = ComboBox4.Value
Range("EZ" & say) = ComboBox5.Value
Range("FA" & say) = TextBox1.Value
Range("FB" & say) = ComboBox1.Value
Range("FC" & say) = ComboBox2.Value
Range("FD" & say) = ComboBox3.Value
Range("FF" & say) = ComboBox4.Value
Range("FF" & say) = ComboBox5.Value
Range("FG" & say) = TextBox1.Value
Range("FH" & say) = ComboBox1.Value
Range("FI" & say) = ComboBox2.Value
Range("FJ" & say) = ComboBox3.Value
Range("FK" & say) = ComboBox4.Value
Range("FL" & say) = ComboBox5.Value
Range("FM" & say) = TextBox1.Value
Range("FN" & say) = ComboBox1.Value
Range("FO" & say) = ComboBox2.Value
Range("FP" & say) = ComboBox3.Value
Range("FQ" & say) = ComboBox4.Value
Range("FR" & say) = ComboBox5.Value
Range("FS" & say) = TextBox1.Value
Range("FT" & say) = ComboBox1.Value
Range("FU" & say) = ComboBox2.Value
Range("FV" & say) = ComboBox3.Value
Range("FW" & say) = ComboBox4.Value
Range("FX" & say) = ComboBox5.Value
Range("FY" & say) = TextBox1.Value
Columns("DQ:FY").EntireColumn.AutoFit
Columns("DR:FY").Select
Selection.Sort Key1:=Range("DR"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets(ComboBox51.Text).Select
ComboBox51.SetFocus
Range("DR1").Select
ActiveWorkbook.Save
Unload Me
UserForm5.Show

 

[Erdinç FIRTINA]

Sayın Korhan AYHAN ve Sayın Evren GİZLEN,
Sizlere çok çok teşekkür ederim. Ellerinize, beyninize ve de yüreğinize sağlık!!!