Çözüldü Döviz Kuru Gelmemesi

[activation]

Merhaba,

Döviz kurlarını Merkez bankasından çeken bir kodumuz var.

Gerliler kısmındaki Döviz Cinsi kısmı seçildiğinde kod çalışıyor ama Giderler bölümünde ki Döviz Cinsi kısmını seçtiğimde, Merkez bankasındaki kur gelmiyor.

yardımcı olabilir misiniz

 

[Alicimri]

Giderler kısmının tarihten sonra fazladan bir sütun ekleyip, gizleyin.

 

[activation]

Giderler kısmının tarihten sonra fazladan bir sütun ekleyip, gizleyin.

Sütun ekleyip, gizledim ama halen değişiklik olmadı.

If Target.Column = 7 Or Target.Column = 15 Then
If Target.Value = "TL" Then
Target.Offset(0, 1).Value = Target.Offset(0, -1).Value
Exit Sub
End If
Sheets("geçici").Visible = 1
Sheets("geçici").Cells.Delete
If CDate("15:30") < Format(tarih, "hh:mm") Then

tarih = Target.Offset(0, -5)
Else
tarih = Target.Offset(0, -5) - 1

bu kısımla alakalı olabilir mi ?

 

[Alicimri]

Lütfen sütun ekleyip, çıkarmayın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yukarıdaki satırda 15'i 16 yapın.

 

[activation]

Lütfen sütun ekleyip, çıkarmayın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yukarıdaki satırda 15'i 16 yapın.

Normalde çalışıyordu ama bir anda ne olduysa o kısım çalışmamaya başladı.

şuan araya bir sütun ekleyip, 15'i 16 yapınca, kod çalıştı ve kur geldi.

ilginiz için Teşekkür ederim.