DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Ayristir()
Dim x As Integer
Dim y As Integer
Dim i As Integer
Dim vSpl As Variant
Dim rs As ADOR.Recordset
Dim sh As Worksheet
Dim sArac As String
Dim lStr As Long
Dim shA As Worksheet
Set shA = ActiveSheet
Set rs = New ADOR.Recordset
With rs
With .Fields
.Append "RuvilleNo", adChar, 50
.Append "Arac", adChar, 50
.Append "Oem", adChar, 50
End With
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open
For i = 2 To shA.Cells(65536, 1).End(xlUp).Row
For Each vSpl In Split(Trim(shA.Cells(i, 2)), " ")
x = x + 1
If x = 1 Then
.AddNew
.Fields("RuvilleNo").Value = shA.Cells(i, 1)
.Fields("Arac").Value = CStr(vSpl)
Else
.Fields("Oem").Value = CStr(vSpl)
x = 0
End If
Next
Next i
.Sort = "[RuvilleNo], [Arac]"
.MoveFirst
x = 0
End With
Set sh = Sheets.Add(, Sheets(Sheets.Count))
With sh
.Cells(1, 1) = "Ruville No"
.Cells(1, 2) = "Araç"
.Cells(1, 3) = "Oem"
End With
lStr = 1
For i = 2 To shA.Cells(65536, 1).End(xlUp).Row
rs.Filter = "RuvilleNo='" & shA.Cells(i, 1) & "'"
Do Until rs.EOF
x = x + 1
If x = 1 Then
sArac = Trim(rs("Arac"))
lStr = lStr + 1
With sh
.Cells(lStr, 1) = Trim(rs("RuvilleNo"))
.Cells(lStr, 2) = Trim(rs("Arac"))
.Cells(lStr, 3) = Trim(rs("Arac")) & "-" & Trim(rs("Oem"))
End With
Else
If sArac = Trim(rs("Arac")) Then
sh.Cells(lStr, 3) = sh.Cells(lStr, 3) & "-" & Trim(rs("Oem"))
Else
y = 0
sArac = Trim(rs("Arac"))
sh.Cells(lStr, 2) = sh.Cells(lStr, 2) & vbLf & Trim(rs("Arac"))
y = y + 1
If y = 1 Then
sh.Cells(lStr, 3) = sh.Cells(lStr, 3) & vbLf & sArac & "-" & Trim(rs("Oem"))
Else
sh.Cells(lStr, 3) = sh.Cells(lStr, 3) & "-" & Trim(rs("Oem"))
End If
End If
End If
rs.MoveNext
Loop
rs.Filter = adFilterNone
x = 0
sArac = ""
Next i
With sh
.Columns("B:B").ColumnWidth = 20
.Columns("C:C").ColumnWidth = 100
With .Rows("1:" & lStr)
.EntireRow.AutoFit
.VerticalAlignment = xlTop
End With
End With
Set rs = Nothing
End Subhocam ben ayrı kelimeleri birleştirebilirim onda sorun olmaz ama sizin bu yazdığınız kodları nereye yazacam ben_?
hocam eyvah ki ne eyvah
ben bu işi nasıl öğrenecem_?