DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
tam olarak sorununu anlıyamadım ama aşağıdaki kod sorununa yardımcı alacaktır.neden kimse yardım etmiyor. lütfen yardım edin.
Sub ayır()
Columns("A:A").Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("B:B").Select
For i = 1 To Worksheets(ActiveSheet.Name).[A65536].End(3).Row
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(i, 2), Array(i, 3), Array(i, 4))
ActiveWindow.ScrollColumn = 1
Next i
End Sub