• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

1'14"01*[01] bunu nasıl sayıya çevirebilirim

Merhaba.Ben hep 1 saat gibi geliyor algıladığımdan o formulü önerdim çünkü arkadaş örneklerinde hep öyle verdi.Ama normalde sizin Formulünüz doğru Yusuf Bey.Elinize sağlık.
 
YUSUF44' Alıntı:
Bence A1 için olması gereken formül şu olmalı:

Kod: 
=(EĞER(EHATALIYSA(PARÇAAL(A1;1;BUL("'";A1)-1));0;PARÇAAL(A1;1;BUL("'";A1)-1)*60)+EĞER(EHATALIYSA(PARÇAAL(SAĞDAN(A1;10);1;2));0;PARÇAAL(SAĞDAN(A1;10);1;2))*1&","&EĞER(EHATALIYSA(PARÇAAL(SAĞDAN(A1;7);1;2));0;PARÇAAL(SAĞDAN(A1;7);1;2)))*1
Genişletmek için tıkla ...

Tekrar merhaba yusuf bey. Size şunu söylemek istiyorum.bir web sitesinden oradaki veriyi ( mesajlarımda verdigim sayılar gibi) bunları otomatik olarak nasıl istedigim hücreye yönledirebilirim. Yada kapsamlı bir şekilde ücretli olarak bu programı bana hazırlamak istermisiniz
 
idealimsin' Alıntı:
Tekrar merhaba yusuf bey. Size şunu söylemek istiyorum.bir web sitesinden oradaki veriyi ( mesajlarımda verdigim sayılar gibi) bunları otomatik olarak nasıl istedigim hücreye yönledirebilirim. Yada kapsamlı bir şekilde ücretli olarak bu programı bana hazırlamak istermisiniz
Genişletmek için tıkla ...

Merhaba.


açıkçası ben de şu anda kendi kullandığım bir dosya için webden sorgulama yapmakla uğraşıyorum ve bazı arkadaşlardan yardım bekliyorum. Yani size bu konuda yardımcı olamayacağım. zaten bu konuda işe ihtiyacı olan bir arkadaşımızın ilgilenmesi daha iyi olacaktır. Yeni bir başlık açarak ücretli dosya hazırlatmak istediğinizi belirtmenizi tavsiye ederim.
 
YUSUF44' Alıntı:
Merhaba.


açıkçası ben de şu anda kendi kullandığım bir dosya için webden sorgulama yapmakla uğraşıyorum ve bazı arkadaşlardan yardım bekliyorum. Yani size bu konuda yardımcı olamayacağım. zaten bu konuda işe ihtiyacı olan bir arkadaşımızın ilgilenmesi daha iyi olacaktır. Yeni bir başlık açarak ücretli dosya hazırlatmak istediğinizi belirtmenizi tavsiye ederim.
Genişletmek için tıkla ...

Tesekkurler
 
hücredeki dakika+saniye okuma 47"15 1'10"96 47"15 1'10"96

merhaba sizlerden daha önce aldığım hücredeki dakika+saniye okuma formullerinde şöyle bir sorunla karşılaşıyorum.ek tede örnekte görüldüğü gibi mevcut iki farklı hucredeki değeri hucrelerdeki yeri değişince formul okuyamıyor.buna bir çözüm varmıdır.?

şimdiden teşekkürler


47"15 1'10"96
 

Ekli dosyalar

idealimsin' Alıntı:
merhaba sizlerden daha önce aldığım hücredeki dakika+saniye okuma formullerinde şöyle bir sorunla karşılaşıyorum.ek tede örnekte görüldüğü gibi mevcut iki farklı hucredeki değeri hucrelerdeki yeri değişince formul okuyamıyor.buna bir çözüm varmıdır.?

şimdiden teşekkürler


47"15 1'10"96
Genişletmek için tıkla ...

Bir yardım edebilecek yokmu
 
Merhaba,

Sizin için bir kullanıcı tanmlı fonksiyon hazırladım.

Hücrede aşağıdaki şekilde kullanabilirsiniz.

Kod: 
=Saniyeye_Çevir(A1)


Boş bir modüle aşağıdaki kodu uygulayınız.

Kod: 
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(Veri.Text, "[")(0))
    Else
        Data = 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

Kontrollerinizi yapın. Fonksiyonun hata verdiği yerler varsa geliştirebiliriz.
 
Korhan Ayhan' Alıntı:
Merhaba,

Sizin için bir kullanıcı tanmlı fonksiyon hazırladım.

Hücrede aşağıdaki şekilde kullanabilirsiniz.

Kod: 
=Saniyeye_Çevir(A1)


Boş bir modüle aşağıdaki kodu uygulayınız.

Kod: 
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(Veri.Text, "[")(0))
    Else
        Data = 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

Kontrollerinizi yapın. Fonksiyonun hata verdiği yerler varsa geliştirebiliriz.
Genişletmek için tıkla ...

merhaba arkadasım cevabınızı şimdi gördüm.yanıtladığınız için çok teşekkur ederim.elinize sağlık
 
Tekrar merhaba linkini verdigim video daki islem icin
yapabileceginiz yardim veya program gelistirilmesi bakimindan
tavsiyeniz olabilirmi?.videodaki *Ekranin sol ustteki word penceresinde
web sayfasindan bir tabloyu worda kopyala yapistir yaptim.
Oradaki tarihli bilgiyi ctrl ile tikladigimda sag ust pencerede
ki ilgili web sayfasi aciliyor ve acilan pencerede trakus
simgesini tiklayip tekrar yeni acilan web sayfasinda ,wordte
tikladigim ilgili tarihteki at isminin trakus derecelerini
kopyalayip ,ekranin sol allttaki (kendim olusturdugum)excel
hucresine yapistirip ve sonra girdugunuz ilgili hucredeki cikan
sonucu kopyalayip worddeki tikladigim tarihin yanina
yapistiriyorum.islemdeki döngü bu.bu islem el yordamiyla boyle
oluyor.bu islem yuzlerce olabiliyor.yani benim olusturdugum
worddeki tabloyu nasil programlayip veya nasil az islemle
yapabilirim. Simdiden tesekkurler

http://youtu.be/WUFFNnvkW-M
 

Ekli dosyalar

  • HNNN.jpg
    HNNN.jpg
    20.4 KB · Görüntüleme: 3
  • HNNNG.jpg
    HNNNG.jpg
    20.4 KB · Görüntüleme: 1
Son düzenleme:
Korhan Ayhan' Alıntı:
Merhaba,

Sizin için bir kullanıcı tanmlı fonksiyon hazırladım.

Hücrede aşağıdaki şekilde kullanabilirsiniz.

Kod: 
=Saniyeye_Çevir(A1)


Boş bir modüle aşağıdaki kodu uygulayınız.

Kod: 
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(Veri.Text, "[")(0))
    Else
        Data = 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

Kontrollerinizi yapın. Fonksiyonun hata verdiği yerler varsa geliştirebiliriz.
Genişletmek için tıkla ...


MERHABA KORHAN ARKADAŞIM
bana yardımcı olduğunuz formuller çok işime yaradı yine teşekkur ederim
.bazen web sitesinden aldığım dakıka saniye verileri bazen sayı basamakları değişik geliyor.yani vermiş olduğunuz formulde 1'22"75 [09] kırmızı ve yeşil renkdeki sayı arası aralıyken bu aralar web sitesinden aldığım veride 1'22''31[07] bu renkli rakamların aralıkları kapalı .böyle oluncada dakıka saniyeyi okuyayamıyor formul. bu formulde nereyi düzeltirsek her iki veridede okumayı sağlarız. bi zahmet arkadaşım.....
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst