unicode metin formatını zamana çevirmek

[mersilen]

Selamlar
Web sayfasından kopyala excele yapıştır yoluyla elde ettiğim veriler mevcut
excelde bir hücrede biçimlendirme şekli genel olarak gözüken bir tarih mevcut
kopyala değerleri yapıştır yaptığımda unicode metin olarak gözükmekte

bana şimdiki zamandan bunu çıkartacak formül ve macro kodu lazım , sonuçta toplam dakika ve saniye olarak olmalı

örneğin
=metneçevir(şimdi();gg.aa.yyyy ss:dd:nn)-a10

yardımlarınız için teşekkürler

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz.

A sütununda " - " karakterlerini " " ile değiştirdim normal tarih ve saate dönüştü.

G10 ve H10 :

=D10-A10

G sütunun Özel Hücre Biçimi - İsteğe Uyarlanmış

[d]

H sütunun Özel Hücre Biçimi - İsteğe Uyarlanmış

[n]

 

[mersilen]

Necdet hocam teşekkür ederim
sonuç istediğim gibi olmuş

siz bu kısmı sanırım manuel yaptınız

A sütununda " - " karakterlerini " " ile değiştirdim normal tarih ve saate dönüştü.

Bunu değiştir formülü ile yapıyım dedim sonucun biçimi değişiyor, formül ve macro uyarlamasını yazmanın mümkün mü?

Cevabı başka bir sorunumun çözümünde lazımda
http://www.excel.web.tr/f14/uretim-hyzy-ve-imdiki-toplam-miktary-bulma-t103967.html#post565915

 

[Necdet]

Bunu değiştir formülü ile yapıyım dedim sonucun biçimi değişiyor, formül ve macro uyarlamasını yazmanın mümkün mü?

Cevabı başka bir sorunumun çözümünde lazımda
http://www.excel.web.tr/f14/uretim-hyzy-ve-imdiki-toplam-miktary-bulma-t103967.html#post565915

Bunun için formül ya da makro yapmaya gerek var mı bilmiyorum

Ctrl+H (yani bul ve değiştir)
Değiştirilecek karakter " - " (yani boşluk tire boşluk)
Yerine konulacak karakter " " (yani tek boşluk)

bunu makro kaydet ile kendiniz bile yapabilirsiniz.

 

[mersilen]

Tekrar teşekkürler

Onu denedim ve olmuştu, ben daha sade birşey var mı diye düşünüyordum?

Range("A18").Select
    ActiveCell.Replace What:="-", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="-", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

 

[Necdet]

Replace What:="-",

buradaki trenin soluna ve sağına boşluk koymalısın, dosyanızda o şekildeydi.