hücre format sorunu

[godufb]

Herkese selamlar

öncelikle yapmak istediğim iş bir web sayfasında tablo halindeki verileri copy paste yöntemi ile bir excel sayfasına yapıştırmak.

Bu web sayfasındaki tabloda tarih isim koşu derecesi gibi alanlar var. Karşılaştığım sorun koşu derecesi ile ilgili . Bu alanladaki veriler aşağıdaki gibi girilmiş

1.34.23 (formatı dakika/saniye/milisaniye
2.13.01
2.12.06
1.01.23
.
.
excele bu tabloyu yapıştrdığımda 1.34.23 ve 2.13.01 değerleri metin olarak (benim istediğim gibi web sayfasındaki görünümle aynı ) görünürken 2.12.06 ve 1.01.23 değerleri sırasıyla 02.12.2006 ve 01.01.2023 şeklinde yani tarih formatında görüntüleniyor. Ben web sayfasıda görüntülendiği gibi metin formatında istiyorum.

Bu sorunu engellemek için yaptıklarım

1- öncelikle tabloyu paste special ile yapıştırmayı denedim paste special seceneklerinde html, unicode text ve text var . Busecenklerden sadece html benim için uygun secim cunki verileri kolon kolon ayırabiliyor diğerleri sadece tek hücre olarak kopyalıyor benim için uygun değil

2. Verileri yapıştırmadan önce tüm kosu derecesi sutununu secerek hücre formatlarını metine getirdim sonra yapıştırdım fakat sonuc değişmedi problemli hücreler tarih formatında idi

3. Verileri yapıştırdıktan sonra problemli hücrelerin formatınnı metine cevirmek istedim bu seferde 144228 ve 36709 gibi değerler gelmeye başladı

istediğim hüclerin metin yada dakika/saniye/milisaniye formatında zaman olarak görüntülenmesi

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

 

[Necdet]

Merhaba,

Örnek dosya ve web adresi olsaydı keşke, çözüm bulunabilirdi sanıyorum.

 

[godufb]

http://www.tjk.org/S/S/KosuTarihi.aspx
adres burası tabloyu alan baslıkları ile secip kopyalamay calısıyorum bu sayfada ileri oku ile birkac say giderseniz yukarıdaverdiğim ornekteki gib verilerle karşılaşabilirsiniz

 

[Necdet]

Merhaba,

İlgili web sitesini açıp sayfayı excele kopyaladım.
Birtakim düzeltme kodları yazdım ama kısaca ne yaptığımı anlatayım.

Süre olan sütunda Bul-Değiştir yaptım. Noktaları (.) İki Nokta Üstüste (:) ile değiştirdim. Sonra Saat biçimi olarak biçimlendirdim.

Makroda bunları ve biraz da temizlik yapıyor.

Public Sub Temizle()
Cells.MergeCells = False
Cells.Hyperlinks.Delete
ActiveSheet.Shapes.SelectAll
Selection.Delete
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("Q:Q").Select
Selection.Replace What:=".", Replacement:=":", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
End Sub

 

[godufb]

Hocam düzeltme tuşuna bastıgımda sub or function not defined mesajı alıyorum

 

[Necdet]

Merhaba,

Haklısınız sonradan eklediğimi denemeden koymuşum.

Public Sub Temizle()
Cells.MergeCells = False
Cells.Hyperlinks.Delete
ActiveSheet.Shapes.SelectAll
Selection.Delete
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("Q:Q").Select
Selection.Replace What:=".", Replacement:=":", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
End Sub

 

[godufb]

Değişikliği yaparak denedim temizlik kısmı calıstı fakat . => : dönüşümü olmadı aynı zamanda hücre formatı problemsiz hücrelerde genel problemli hücrelerde ise tarih olarak görülüyor

 

[Necdet]

Merhaba,

4 nolu mesajımda hem kodları hem dosyayı yeniledim.

 

[godufb]

Hocam gönderdiğim ekte makroyu denerseniz sorunlu hucreleri görebilirsiniz

 

[Necdet]

Merhaba, Sayın godufb ,

Verdiğiniz adresten excele kopyalama yaptım ve gördüğüm bir sütunu ki sizin de belirttiğiniz sürelerdi bunlar onları değiştirmek için bir makro yazdım, bunun yanında da A sütununda tarihler vardı onları düzelttim.

Bunlarıda nasıl yapıldığını anlatmak içindi, yoksa tamamını düzeltmek değildi amacım.

Yeni durumda Q sütununda süreler vardı onları düzelttim. Sizin gönderdiğiniz dosyayı anlamadım başlık olmadığı için.

Durum bundan ibarettir

Yukarıdaki mesajlarımda manuel olarak nasıl düzeltileceğini yazmıştım.