é tuşu veya shift+2 yapılan tırnaklamayı formülde düzenleme

[idealimsin]

1'14"77 [01] dk ' saniye " salise olarak formülde okuttuğum hucreyi bu sefer aynı gibi görünen ama 1'14''77 [01] 1'14"77 [01] sadece renkli yerdeki tırnaklamanın farklı olması formulde ikisinide okutamıyorum .bunu nasıl yaparım.

 

[suleyman242]

Hata yer değişikliğinden kaynaklanmıyor
Eğer A,B,C,D,E,1 Deki değerleri K,L,M,N,O1 E özel yapıştır formülün doğru çalıştığını göreceksin
yada tam tersi K,L,M,N,O 1 deki değerleri A,B,C,D,E 1 e yapıştır hatanı göreceksin .

 

[idealimsin]

Hata yer değişikliğinden kaynaklanmıyor
Eğer A,B,C,D,E,1 Deki değerleri K,L,M,N,O1 E özel yapıştır formülün doğru çalıştığını göreceksin
yada tam tersi K,L,M,N,O 1 deki değerleri A,B,C,D,E 1 e yapıştır hatanı göreceksin .

merhaba
cevabın için çok teşekkürederim
A,B,C,D,E,1 bu bölümdeki ve K,L,M,N,O1 vs bu bölümdeki rakamlardaki fark

1'23''55[01] kırmızı renkli tırnağın farklı olması..yani A,B,C,D,E,1 burdaki hücrelerde tırnak işareti klavyede ( é" ) ile yapılmış ...
K,L,M,N,O1 burdaki hücrelerde klavyedeki shift+2 ile yapımış. bende modüldeki formül A,B,C,D,E,1 deki ( é" ) tuşu ile yapılan tırnağa göre yapıldı .formülü her iki bölümdekine göre nasıl düzenleye biliriz.

 

[idealimsin]

Hocalarim bu isde bir yardim elinizi esirgemeyin tesekkur ediyorum

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Function Saniyeye_Çevir(Veri As Range) As Double
 
    Dim Data As String
 
    Application.Volatile True
 
    If Veri = "" Then Exit Function
    If InStr(1, Veri.Text, "[") > 0 Then
        Data = Trim(Split(Replace(Veri.Text, "''", """"), "[")(0))
    Else
        Data = Replace(Veri.Text, "''", """")
    End If
 
    If InStr(1, Data, "'") > 0 Then
        Saat = Split(Data, "'")(0)
    End If
 
    If InStr(1, Data, """") > 0 Then
        Dakika = Split(Data, """")(0)
        Dakika = Replace(Dakika, Saat & "'", "", , 1)
        Saniye = Split(Data, """")(1)
    Else
        Dakika = Split(Data, "'")(1)
    End If
 
    If Saat <> "" Then
        Saniyeye_Çevir = Saat * 60
    End If
 
    If Dakika <> "" Then
        Saniyeye_Çevir = CDbl(Saniyeye_Çevir) + CDbl(Dakika)
    End If
 
    If Saniye <> "" Then
        Saniyeye_Çevir = Saniyeye_Çevir & "," & Saniye
    End If
 
End Function

Not: Aynı soruyla ilgli birden fazla konu başlığı açmamanızı rica ederim.

.

 

[idealimsin]

Allah ne muradın varsa versin arkadaşım çok çok sağol.eline koluna sağlık