C3 ve D3 hücresinde başlasın

[k0081]

Merhaba arkadaşlar.;
aşağıdaki kodu çalıştırdığımda verileri B1 ve D1 den başlayarak yazıyor. yapmak istediğim verileri C3 ve D3 başlayarak yazması.. yardımcı arkadaşa şimdiden teşekkürler..

örnek veri : 12455.25 32653.365

Private Sub CommandButton3_Click()
Dim dosya As String, d As String
Dim s As Long
Dim st, i As Integer
On Error Resume Next
dosya = Application.GetOpenFilename( _
            "Text Dosyaları (*.txt) (*.txt), *.txt", 1, _
            "ASCII koordinat data..")

    If dosya = "False" Then Exit Sub
    Open dosya For Input As #1
        While Not EOF(1)

            s = s + 1
            Line Input #1, d
                     st = 0
                     x = Split(d, " ")
                    For i = 0 To UBound(x)
                        st = st + 2
                        If x(i) = "" And i > 0 Then
End If
Cells(s, st) = x(i)
Next i
                    Wend
    Close #1
    MsgBox "Dosya alımı tamamlandı.", vbInformation, _
    "ASCII Koordinat data.."
    If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, _
    "Hata..!"
End Sub

 

[hamitcan]

Bu şekilde deneyin.

Private Sub CommandButton3_Click()
Dim dosya As String, d As String
Dim s As Long
Dim st, i As Integer
On Error Resume Next
dosya = Application.GetOpenFilename( _
            "Text Dosyaları (*.txt) (*.txt), *.txt", 1, _
            "ASCII koordinat data..")
s=2'Bu satırı ekledim.
    If dosya = "False" Then Exit Sub
    Open dosya For Input As #1
        While Not EOF(1)

            s = s + 1
            Line Input #1, d
                     st = 0
                     x = Split(d, " ")
                    For i = 0 To UBound(x)
                        st = st + 2
                        If x(i) = "" And i > 0 Then
End If
Cells(s, st) = x(i)
Next i
                    Wend
    Close #1
    MsgBox "Dosya alımı tamamlandı.", vbInformation, _
    "ASCII Koordinat data.."
    If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation, _
    "Hata..!"
End Sub

 

[k0081]

Teşekkürler.. satır kısmı tamamdır.. yalnız; B3 den başlıyor.. değerleri C3 ve D3 den itibaren yazdırmam gerekiyor..

 

[hamitcan]

st = 0 satırını st = 1 şeklinde değiştirin.

 

[k0081]

st = 0 satırını st = 1 şeklinde değiştirin.

st=2 ve st = st + 1

şeklinde değiştirince oldu.. Hocam teşekkürler..