Satiri SÜtun Olarak Aktarma

E

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
Değerli üyeler,
Userform üzerindeki textlere (toplam 18 text) girilen veriler, Combo ile sayfa seçilip ve AQ sütunundan başlayarak ve satır numarası verilerek alt alta aktarılabiliyor. Aynı işlem tekrar yapılarak dolu satırın altına olmak üzere satırlar şeklinde aktarılabiliyor.


Aynı aktarım, yine AQ sütunundan başlayarak ilk altı text birinci satıra, ikinci altı text yine AQ sütunundan başlayarak ikinci satıra ve üçüncü altı text yine AQ sütunundan başlayarak üçüncü satıra aktarılabilir mi?

Aynı veriler tekrar aktarıldığında aynı işlem dolu staırın altından başlayarak ve sıra numarası verilerek aktarılabilir mi?

Yani; yapabildiğim örnekte; AQ dan başlayarak 1 satıra aktarılan verileri, üç satır şeklinde aktarmak istiyorum.

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,730
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
Private Sub CommandButton1_Click()
    Dim Satır As Long
    Dim X As Byte
    
    If ComboBox1 <> "" Or ComboBox2 <> "" Or ComboBox3 <> "" Or ComboBox4 <> "" Or ComboBox5 <> "" Or TextBox1 <> "" Then
    Sat&#305;r = [AQ65536].End(3).Row + 1
    Cells(Sat&#305;r, "AQ") = WorksheetFunction.Max([AQ:AQ]) + 1
    Cells(Sat&#305;r, "AR") = ComboBox1
    Cells(Sat&#305;r, "AS") = ComboBox2
    Cells(Sat&#305;r, "AT") = ComboBox3
    Cells(Sat&#305;r, "AU") = ComboBox4
    Cells(Sat&#305;r, "AV") = ComboBox5
    Cells(Sat&#305;r, "AW") = TextBox1
    End If
    
    If ComboBox6 <> "" Or ComboBox7 <> "" Or ComboBox8 <> "" Or ComboBox9 <> "" Or ComboBox10 <> "" Or TextBox2 <> "" Then
    Sat&#305;r = [AQ65536].End(3).Row + 1
    Cells(Sat&#305;r, "AQ") = WorksheetFunction.Max([AQ:AQ]) + 1
    Cells(Sat&#305;r, "AR") = ComboBox6
    Cells(Sat&#305;r, "AS") = ComboBox7
    Cells(Sat&#305;r, "AT") = ComboBox8
    Cells(Sat&#305;r, "AU") = ComboBox9
    Cells(Sat&#305;r, "AV") = ComboBox10
    Cells(Sat&#305;r, "AW") = TextBox2
    End If
    
    If ComboBox11 <> "" Or ComboBox12 <> "" Or ComboBox13 <> "" Or ComboBox14 <> "" Or ComboBox15 <> "" Or TextBox3 <> "" Then
    Sat&#305;r = [AQ65536].End(3).Row + 1
    Cells(Sat&#305;r, "AQ") = WorksheetFunction.Max([AQ:AQ]) + 1
    Cells(Sat&#305;r, "AR") = ComboBox11
    Cells(Sat&#305;r, "AS") = ComboBox12
    Cells(Sat&#305;r, "AT") = ComboBox13
    Cells(Sat&#305;r, "AU") = ComboBox14
    Cells(Sat&#305;r, "AV") = ComboBox15
    Cells(Sat&#305;r, "AW") = TextBox3
    End If
    
    For X = 1 To 15
    Me.Controls("ComboBox" & X) = ""
    Next
    
    For X = 1 To 3
    Me.Controls("TextBox" & X) = ""
    Next
    
    MsgBox "Aktar&#305;m i&#351;lemi tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub
 
E

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
Say&#305;n Korhan AYHAN,
Size &#231;ok te&#351;ekk&#252;r ederim. Kodlar&#305; dosyama uyarlad&#305;m. M&#252;kemmel &#231;al&#305;&#351;&#305;yor. Ama bir &#351;ey daha yapmak istedim. Ancak i&#351;lem hata veriyor.
S&#305;ralama yapt&#305;rmak istiyorum ama olmuyor.

Selection.Sort Key1:=Range("DR2"), Order1:=xlAscending, Key2:=Range("DS") _
, Order2:=xlAscending

sat&#305;rlar&#305;yla s&#305;ralatmaya &#231;al&#305;&#351;m&#305;&#351;t&#305;m.

Private Sub CommandButton1_Click()
If ComboBox51.Value = "" Then
MsgBox "L&#220;TFEN! &#214;NCEL&#304;KLE YILIN AYINI SE&#199;&#304;N&#304;Z!!"
Exit Sub
End If
Range("DQ1").Select
Range("DQ1") = "SIRA NO"
Range("DR1") = "TAR&#304;H"
Range("DS1") = "DERS"
Range("DT1") = "TEK - &#199;&#304;FT"
Range("DU1") = "ADI SOYADI 1"
Range("DV1") = "ADI SOYADI 2"
Range("DW1") = "BRAN&#350;I"
If ComboBox1.Value = "" Then
MsgBox "VER&#304; G&#304;R&#304;N&#304;Z"
Range("DQ1").Select
Unload Me
UserForm5.Show
End If

Dim Sat&#305;r As Long
Dim X As Byte

If ComboBox1 <> "" Or ComboBox2 <> "" Or ComboBox3 <> "" Or ComboBox4 <> "" Or ComboBox5 <> "" Or TextBox1 <> "" Then
Sat&#305;r = [DQ65536].End(3).Row + 1
Cells(Sat&#305;r, "DQ") = WorksheetFunction.Max([DQ:DQ]) + 1
Cells(Sat&#305;r, "DR") = ComboBox1
Cells(Sat&#305;r, "DS") = ComboBox2
Cells(Sat&#305;r, "DT") = ComboBox3
Cells(Sat&#305;r, "DU") = ComboBox4
Cells(Sat&#305;r, "DV") = ComboBox5
Cells(Sat&#305;r, "DW") = TextBox1
End If

If ComboBox6 <> "" Or ComboBox7 <> "" Or ComboBox8 <> "" Or ComboBox9 <> "" Or ComboBox10 <> "" Or TextBox2 <> "" Then
Sat&#305;r = [DQ65536].End(3).Row + 1
Cells(Sat&#305;r, "DQ") = WorksheetFunction.Max([DQ:DQ]) + 1
Cells(Sat&#305;r, "DR") = ComboBox6
Cells(Sat&#305;r, "DS") = ComboBox7
Cells(Sat&#305;r, "DT") = ComboBox8
Cells(Sat&#305;r, "DU") = ComboBox9
Cells(Sat&#305;r, "DV") = ComboBox10
Cells(Sat&#305;r, "DW") = TextBox2
End If

If ComboBox11 <> "" Or ComboBox12 <> "" Or ComboBox13 <> "" Or ComboBox14 <> "" Or ComboBox15 <> "" Or TextBox3 <> "" Then
Sat&#305;r = [DQ65536].End(3).Row + 1
Cells(Sat&#305;r, "DQ") = WorksheetFunction.Max([DQ:DQ]) + 1
Cells(Sat&#305;r, "DR") = ComboBox11
Cells(Sat&#305;r, "DS") = ComboBox12
Cells(Sat&#305;r, "DT") = ComboBox13
Cells(Sat&#305;r, "DU") = ComboBox14
Cells(Sat&#305;r, "DV") = ComboBox15
Cells(Sat&#305;r, "DW") = TextBox3
End If

If ComboBox16 <> "" Or ComboBox17 <> "" Or ComboBox18 <> "" Or ComboBox19 <> "" Or ComboBox20 <> "" Or TextBox4 <> "" Then
Sat&#305;r = [DQ65536].End(3).Row + 1
Cells(Sat&#305;r, "DQ") = WorksheetFunction.Max([DQ:DQ]) + 1
Cells(Sat&#305;r, "DR") = ComboBox16
Cells(Sat&#305;r, "DS") = ComboBox17
Cells(Sat&#305;r, "DT") = ComboBox18
Cells(Sat&#305;r, "DU") = ComboBox19
Cells(Sat&#305;r, "DV") = ComboBox20
Cells(Sat&#305;r, "DW") = TextBox4
End If

If ComboBox21 <> "" Or ComboBox22 <> "" Or ComboBox23 <> "" Or ComboBox24 <> "" Or ComboBox25 <> "" Or TextBox5 <> "" Then
Sat&#305;r = [DQ65536].End(3).Row + 1
Cells(Sat&#305;r, "DQ") = WorksheetFunction.Max([DQ:DQ]) + 1
Cells(Sat&#305;r, "DR") = ComboBox21
Cells(Sat&#305;r, "DS") = ComboBox22
Cells(Sat&#305;r, "DT") = ComboBox23
Cells(Sat&#305;r, "DU") = ComboBox24
Cells(Sat&#305;r, "DV") = ComboBox25
Cells(Sat&#305;r, "DW") = TextBox5
End If
For X = 1 To 25
Me.Controls("ComboBox" & X) = ""
Next

For X = 1 To 5
Me.Controls("TextBox" & X) = ""
Next

MsgBox "Aktar&#305;m i&#351;lemi tamamlanm&#305;&#351;t&#305;r.", vbInformation
Columns("DQ:DW").EntireColumn.AutoFit
Columns("DR:DW").Select

Selection.Sort Key1:=Range("DR2"), Order1:=xlAscending, Key2:=Range("DS") _
, Order2:=xlAscending

Sheets(ComboBox51.Text).Select
Range("DR1").Select
' ActiveWorkbook.Save
Unload Me
UserForm5.Show
End Sub
 
E

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
Altın Üyelik Bitiş Tarihi
15-05-2026
Say&#305;n Korhan AYHAN,
Galiba sorunun ne oldu&#287;unu buldum. S&#305;ralatma yapmak istedi&#287;im s&#252;tundaki veriler tarihlerden olu&#351;uyor. &#214;rne&#287;in; isimlerin yaz&#305;l&#305; oldu&#287;u DU s&#252;tununun s&#305;ralanmas&#305;n&#305; yap&#305;yor.

Ama, DR s&#252;tunundaki tarihleri s&#305;ralam&#305;yor. Hatta bunu ba&#351;arabilirsem, ikinci ve &#252;&#231;&#252;nc&#252; kriter olarak da, DS s&#252;tunundaki (bu s&#252;tunda say&#305;sal veriler var) veriler ile DU s&#252;tunundaki (metin-genel format) verileri de s&#305;ralatmak istiyorum.

Her &#351;ey i&#231;in &#231;ok te&#351;ekk&#252;rler!!!
Selection.Sort Key1:=Range("DU2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst