çift tırnağı kaldırıp yerine virgül koyma

[esmedr]

Netten aldığım tabloda zaman değerleri şöyle; 28''54, 1''02''28 gibi...

Ben bu değerlerin 28,54 yada 1,02,28 yazmak istiyorum. Aslında tüm değerlerin saniye,salise şeklinde olmasını istiyorum. 28''54 ü 28,54 şeklinde yazarken, 1''02''28 i ise 62,28 olarak yazmak mümkünmüdür?

 

[Korhan Ayhan]

Ekteki dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon kullanılmıştır.

Function ZAMANA_DÖNÜŞTÜR(Alan As Range, Ölçüt As Variant) As Double
    Application.Volatile True
    Data = Split(Alan.Value, Ölçüt)
    Select Case UBound(Data)
        Case 1
            ZAMANA_DÖNÜŞTÜR = Data(0) & "," & Data(1)
        Case 2
            ZAMANA_DÖNÜŞTÜR = Data(0) * 60 + Data(1) & "," & Data(2)
        Case 3
            ZAMANA_DÖNÜŞTÜR = Data(0) * 60 + Data(1) * 60 + Data(2) & "," & Data(3)
        Case 4
            ZAMANA_DÖNÜŞTÜR = Data(0) * 24 * 60 * 60 + Data(1) * 60 + Data(2) * 60 + Data(3) & "," & Data(4)
    End Select
End Function

 

[esmedr]

Hocam çok zahmet oldu,çok teşekkürler. Yanılmıyorsam bu bir makro, ben bunu excele kaydedip, çalıştıramadım. Şayet zamanınız olur da konuyu açıklayan bir link koyabilirseniz çok sevinirim. Tekrar teşekkürler...

 

[esmedr]

Hocam makroyu excele kaydettim ama ''bir söz dizimi hatası nedeniyle makro çalıştırılamıyor'' diyor...

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basarak kod editörünü açın.
INSERT menüsünden boş bir modüle ekleyin.
Eklediğiniz modüle verdiğim kodları uygulayın.

Daha sonra excel sayfasına dönün.

Örnek; A1 hücresindeki veriniz için aşağıdaki formülü hemen yanındaki hücreye yazın.

=ZAMANA_DÖNÜŞTÜR(A1;"''")

Ayrıca aşağıdaki linkten uygulamalı dosyayı indirebilirsiniz.

Örnek Dosya

 

[esmedr]

Hocam yukarıdaki formülü A1 hücresinin yanına yani B1 hücresine yazdığımda, A1 hücresinde 26''90 verisi var, B1 hücresinde şu hatayı veriyor: #AD?

 

[esmedr]

Hocam, makro kaydete tıklayıp, hücredeki 29''90 verisindeki çift tırnağı kaldırıp, yerine virgül koydum ve makro kaydetmeyi durdura tıkladım. Otomatik kaydedilen makro aşağıdaki şekilde ve tek hücre içindeki veriyi mesela 26,90 şekline döndürüyor. Şimdi önemli olan liste şeklinde uzun verileri dönüştürmek.

Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+z
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "26,90"
Range("A2").Select
End Sub

 

[Ömer BARAN]

Merhaba.
Netten aldığınız verilerin; karakten sayısı, aradaki " , " karakteri tırnak işaretlerinin çift tırnak değil tek tırnak olması durumu, metin uzunluğu (en fazla ve en az karakter taşıyan iki örneği orijinal verilerinizden kopyala yapıştır ile buraya ekler misiniz?) standart mıdır acaba?

Örnek belgenizi burası gibi bir siteye yükleyip oradan alacağınız erişim linki'ni burada paylaşırsanız daha hızlı sonuç alırsınız.

NOT: Sizin son cevapta verdiğiniz kod, hücreye veri yazmanızı sağlar,
hücre içerisine girdikten sonra yapılan işlem veri değiştirme değil veri yazma işlemidir.