bulentkars
Altın Üye
- Katılım
- 5 Ağustos 2005
- Mesajlar
- 671
- Excel Vers. ve Dili
- 2003 TR
- Altın Üyelik Bitiş Tarihi
- 23-03-2027
Arkadaşlar Merhaba,
Aşağıdaki kod ile LOG sayfasında verileri çekiyorum, [Ortalama Vade] verilerini alırken tarih formatında getirmiyor, makro kaydet ile F:F sutunu seçip metni sutunlara dönüştür Tarih formatında yapıyorum. oluyor, ancak kodun sonuna makroyu kopyaladığımda yine vadeyi tarih formatında vermiyor. Bu konuda yardımcı olabilirseniz sevinirim. Şimden Teşekkür ederim.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
[D2:J31].ClearContents
If Target = "" Then Exit Sub
Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
sorgu = "select [Tarih], [Günü Geçen Hesap], [Ortalama Vade], [Toplam Risk], [Talep Edilen Limit], [Açıklama],[Risk Birimi Not] from [Log$] where [Hedef Kodu]=" & Target & " order by [Tarih] desc"
Set rs = con.Execute(sorgu)
[D2].CopyFromRecordset rs
'Bu kodu manuel çalıştırdığımda oluyor, kod ile birlikte çalışmıyor.
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Range("D1").Select
End Sub
Aşağıdaki kod ile LOG sayfasında verileri çekiyorum, [Ortalama Vade] verilerini alırken tarih formatında getirmiyor, makro kaydet ile F:F sutunu seçip metni sutunlara dönüştür Tarih formatında yapıyorum. oluyor, ancak kodun sonuna makroyu kopyaladığımda yine vadeyi tarih formatında vermiyor. Bu konuda yardımcı olabilirseniz sevinirim. Şimden Teşekkür ederim.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
[D2:J31].ClearContents
If Target = "" Then Exit Sub
Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
sorgu = "select [Tarih], [Günü Geçen Hesap], [Ortalama Vade], [Toplam Risk], [Talep Edilen Limit], [Açıklama],[Risk Birimi Not] from [Log$] where [Hedef Kodu]=" & Target & " order by [Tarih] desc"
Set rs = con.Execute(sorgu)
[D2].CopyFromRecordset rs
'Bu kodu manuel çalıştırdığımda oluyor, kod ile birlikte çalışmıyor.
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Range("D1").Select
End Sub