kapalı dosyadan veri alırken sayı ve tarih formatı hatası

[mturka]

kapalı dosyadan veri alırken sayı ve tarih formatlarını alırken excelden kaydedilenleri normal alıyor, userformdan kaydedilenleri almıyor. nasıl bir değişiklik yapmam gerekli. kodu ekte gönderiyorum.

Private Sub CommandButton1_Click()

If MsgBox("DOSYALARINDAN VERİ ALMAK İSTİYORMUSUNUZ.?", vbYesNo) = vbNo Then Exit Sub
Set s1 = Sheets("2013")
s1.Range("a3:ar65536").ClearContents

Set baglanti = CreateObject("ADODB.Connection")
'yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & ThisWorkbook.Path & "/Araç Takip Rapor Programı 1.0 Veri Girişi.xls"
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & "\\Yedek\yedek\Ekspertiz Yedek\DİĞER\MTDTS YEDEK" & "/DTSYedek-" & Format(Now, "DDMMYYYY") & ".xls"

baglanti.Open yol
On Error Resume Next
's1.Range("a3:cd5000").ClearContents
Set rs = baglanti.Execute("[2013$A2:cd5000]")
r = WorksheetFunction.CountA(Worksheets("2013").Range("A1:A5000")) + 2
Do While Not rs.EOF
'For i = 2 To 5000 'satır sayısı
n = 1
For j = 1 To 82 'sutun sayısı

s1.Cells(r, n) = rs(j - 1)
'MsgBox rs(j)
'ComboBox2.AddItem rs(0)
n = n + 1
Next j
r = r + 1
rs.MoveNext
say = say + 1
DoEvents
gunsay.Caption = say & " adet veri güncellenmesi tamamlandı."
'Next i
Loop
rs.Close
baglanti.Close

s1.Range("a2").Select
s1.Range("a2:cd5000").NumberFormat = "@"
s1.Cells(1, 83) = Format(Now, "DD.MM.YYYY HH:MM:SS")
MsgBox say & " adet veri güncellenmesi tamamlandı."
gunsay.Caption = "Son Güncelleme " & s1.Cells(1, 83)

End Sub

 

[mturka]

yardım edebilecek kimse yok mu?

 

[mturka]

lütfen yardım

 

[mturka]

lütfen yardım

 

[mturka]

yarrrrdııııımmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

 

[vivident]

Aynı problemi bende yaşıyorum.
Tarih ve rakamlar metin karakterinde kopyalanıyor.
Yokmu bi çaresi

Sub aktar()
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
Sheets("Smp99_Donnees").Range("A1:AZ" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RECORDSET")
conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes;imex=1"";"
rs.Open "select * from [Smp99_Donnees$]", conn, 1, 1
Sheets("Smp99_Donnees").Range("B2").CopyFromRecordset rs
Set rs = conn.Execute("select * from [Smp99_Donnees$]")
Sheets("Smp99_Donnees").Range("B2").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Sheets("Smp99_Donnees").Select
MsgBox "veriler yüklenmiştir" & vbLf & _
    "anormallik durumunda : 6551", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[mturka]

dosyalar ektedir.

masaüstüne indirirseniz ikisini de deneme isimli dosyadaki userform ile kapalı haldeki dts yedek dosyasındaki verileri aynı şekilde almak istiyorum. fakat şu anda tarih ve sayılar gelmiyor.

yardımlarınızı bekliyorum.

 

[omerceri]

"kapalı dosyadan veri alırken sayı ve tarih formatlarını alırken excelden kaydedilenleri normal alıyor, userformdan kaydedilenleri almıyor." Dosyalarınızda Kayıt Formunu göremedim. Formdan yapılan kayıtlardaki hücre formatına bir bakın "Metin" olabilir.

 

[mturka]

metin formatında da sayı formatında da kaydedince sonuç değişmedi. diğer bir dosyamdan kopyaladım bu kodu. orda kaydedilenlerin hepsi metin formatında kaydediyordu ve hepsini alıyordu. bu dosyada da aynı formatlarda yaptım ama olmadı.

 

[omerceri]

Giriş Formunda kaydı aşağıdaki gibi girerek bir deneyin.
Format(TextBox1.Value, "dd.mm.yyyy")

 

[omerceri]

Aynı sütundaki verilerin hepsi aynı formatta olmalı
24.01.2013
1/25/2013
dosyanızda yukardaki gibi kayıtlar var sorun bundan kaynaklanıyor.

 

[Muzaffer Ali]

s1.Cells(r, n) = rs(j - 1)

Satırını silin

        If IsDate(s1.Cells(r, n).Value) Then
            s1.Cells(r, n).Value = FormatDateTime(rs(j - 1).Value)
        Else
            s1.Cells(r, n).Value = rs(j - 1).Value
        End If

Satırlarını ekleyin

 

[arjuna35]

Kapalı dosyadan veri almak

Merhabalar,

Sorumu buraya mı yazmalıyım? bilemedim? Hata yaptıysam şimdiden özür dilerim.

Sorunum şöyle; kapalı dosyadan ilgili sayfaların ilgili hücrelerinden verileri makro yardımıyla almaya çalışıyorum. Bunu makro kaydet yardımıyla yaptım. Yalnız sorun şu ki; excelde formülle yapmış olduğumuz eşleşmenin aynısı oluyor ve butona basmaya gerek kalmadan verileri otomatik güncelleştirme yapıyor. Birde çalışma sayfası yaklaşık 200 adet olacak ve kod bölümü kalabalıklaşacak.

Bu veri çekme eylemini daha kolay bir makro yardımıyla çözebilir miyim? Yoksa makrodan vazgeçip direk excel formül yardımıyla mı çözmeliyim?

Yardımcı olabilirseniz çok sevinirim.

İyi çalışmalar

 

[omerceri]

Sn dalgalikur
Sizin kodunuzda da aynı tip bir hata veriyor. Diğer verileri "41277" yerine "1/22/2013" şeklinde getiriyor ama sorunlu kayıtlarda yine veri gelmiyor. Sorun "DTSYedek" dosyasına aynı tip verilerin girilmesi ile çözülebilir gibi geliyor bana.

 

[Muzaffer Ali]

Özür dilerim kodu yalnış vermişim aşağıdaki gibi olacak

        If IsDate(rs(j - 1).Value) Then
            s1.Cells(r, n).Value = FormatDateTime(rs(j - 1).Value)
        Else
            s1.Cells(r, n).Value = rs(j - 1).Value
        End If

Dosyanız ekte

 

[omerceri]

Sn arjuna35
Örneğe ilişkin açıklamalar ekteki txt dosyasında
ben ilk iki sütun için kod yazdım diğerlerini siz eklersiniz.
kolay gelsin

 

[mturka]

sayın omerceri vedalgalikur,

öncelikle yardımlarınız için sonsuz teşekkürler.

Tam sorunumu anlatamadım herhalde

Burdaki problem gelen verinin format problemi değil, elle excel e girişi yapılan değerlerin kapalıyken deneme dosyasına getirilmesi fakat userform üzerinden kaydedilen verilerin deneme dosyasına getirilememesi.

 

[omerceri]

Daha önce Sütunları biçimlendirmediyseniz, direkt hücreye tarih girerseniz onu tarih olarak algılıyor, ancak forma aynı şekilde veri girip hücreye aktırırsanız ki öyle olmuş (DTSYedek.xls dosyasının 75. satırdaki gibi ../../.... şeklinde) bir şekilde aynı sütundaki verileri format ve şeklini aynılaştırırsanız, sizin sorununuz çözülür.

 

[mturka]

a sürunu ve f sütunundaki verileri de almıyor. bunların formatlarını userformdan getirirken nasıl düzelteceğim. bir de bu gelmeyen verileri excelden elle güncelliyorum ama bunlar da gelmiyor.

 

[arjuna35]

Sn arjuna35
Örneğe ilişkin açıklamalar ekteki txt dosyasında
ben ilk iki sütun için kod yazdım diğerlerini siz eklersiniz.
kolay gelsin

Sn. Ömerceri,

İlginiz için çok teşekkür ederim. Gönderdiğiniz dosyayı inceledim. Fakat anlayamadım. İcmal dosyasındaki butona bastığımda verileri siliyor.

Sanırım ben sorunumu anlatamadım. İcmal dosyasındaki buton yardımıyla diğer çalışma kitabının tanımlı hücrelerindeki verileri almak istiyorum.

Tekrar teşekkür ederim.