Veri çekmek

[igultekin2000]

iyi günler; LISTELE sayfasından RAPOR sayfasına veri çekiyorum. LISTELE sayfasındaki " E " sütunundaki verinin tamamını çekmek yerine solundaki ilk 10 hücreyi (tarih kısmı) almak istiyorum. Saygılarımla Kullandığım makro ;

Private Sub CommandButton1_Click()
'Sub rapor() 'tutar listeleme
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Set sl = Sheets("Rapor"): Set sk = Sheets("LISTELE")
son = sl.Range("B" & Rows.Count).End(3).Row + 3 'kopyalanacak sayfanın başlangıç satırı
sat = 3
sl.Range("B3:G" & son).ClearContents
For i = 2 To sk.Range("B" & Rows.Count).End(3).Row 'baz alınan sayfanın listelenecek ürün başlangıç satırı
If sk.Cells(i, "M") > "" Then
sl.Cells(sat, "B") = sk.Cells(i, "B")
sl.Cells(sat, "C") = sk.Cells(i, "E")
sl.Cells(sat, "D") = sk.Cells(i, "A")
sl.Cells(sat, "E") = sk.Cells(i, "H")
sl.Cells(sat, "F") = sk.Cells(i, "C")
sl.Cells(sat, "G") = sk.Cells(i, "D")
sl.Cells(sat, "H") = sk.Cells(i, "M")

sat = sat + 1
End If
Next i
Sheets("RAPOR").Select
Sheets("RAPOR").Range("B2:G" & Range("G65656").End(3).Row).Font.Name = "Calibri" 'yazı fontu
Sheets("RAPOR").Select
Sheets("RAPOR").Range("B2:G" & Range("G65656").End(3).Row).Font.Size = 10 'yazı tipi boyutu
'Sheets("VERI").Select  ' konumlanma
Sheets("RAPOR").Select
Sheets("RAPOR").Range("M2:M" & Range("M65656").End(3).Row).NumberFormat = "#,##0.00"

Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

 

[Ömer BARAN]

Merhaba.

İlgili kod satırını aşağıdakiyle değiştirin.
.

[COLOR="Red"]sl.Cells(sat, "C")[/COLOR] = CDate(Mid(sk.Cells(i, "E"), 1, 10))

 

[igultekin2000]

sorunsuz çalışıyor

Merhaba.

İlgili kod satırını aşağıdakiyle değiştirin.
.

[COLOR="Red"]sl.Cells(sat, "C")[/COLOR] = CDate(Mid(sk.Cells(i, "E"), 1, 10))

teşekkür ederim, bir kere daha müşkilatımızı gidermiş oldunuz. Hayırlı günler

 

[Ömer BARAN]

Kolay gelsin.