degeri iki ile çarparak almak

[k0081]

merhaba arkadaşlar, ekteki dosyada quantity bölümünde bulunan değerleri 2 ile çarparak A sütununa nasıl alabilirim..? (512,504
660,294,792)

Ekli dosyayı görüntüle civata.txt

 

[m.akcan]

txt dosyadan mı alacaksınız. yoksa dosyadaki bilgiler xls dosyada var mı?

 

[k0081]

txt dosyadan mı alacaksınız. yoksa dosyadaki bilgiler xls dosyada var mı?

txt dosyasından alınacak.,hocam..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Option Explicit

Sub Txt_Dosyasindan_Veri_Al()
    Dim Dosya, Veri_1, Veri_2, Satir
    
    Dosya = Application.GetOpenFilename("Text Files (*.txt),*.txt", , "Lütfen veri almak istediğiniz txt dosyasını seçiniz...")

    If Dosya = False Then
        MsgBox "İşleminiz iptal edilmiştir.", vbExclamation
        Exit Sub
    End If

    Open Dosya For Input As #1
        Do While Not EOF(1)
        Line Input #1, Veri_1
            If IsNumeric(Left(Trim(Veri_1), 1)) Then
                Veri_2 = Split(Trim(Veri_1), " ")
                Satir = Satir + 1
                Cells(Satir, 1) = Veri_2(UBound(Veri_2)) * 2
            End If
        Loop
    Close #1
    
    Cells.EntireColumn.AutoFit
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[k0081]

teşekkürler hocam.tamamdır..