Alış Satış Adedini İlgili Sütuna Aktarma

[assenucler]

Değerli Dostlar,


Bankadaki para ile fon kağıdı alım ve satımı yapılmaktadır. Ekli dosyada yazılımdan alınan excel raporu ilişiktedir.

D sütunundaki açıklamanın, satır başındaki fon miktarını E veya F sütunlarına aktarılmasını makro ile yapabilir miyiz?

Yardımınız için önceden teşekkürler.

 

[vardar07]

Deneyiniz.

Sub dene()
With Sayfa1
For i = 7 To Range("B65536").End(3).Row
If .Cells(i, 4) Like ("* alış") Then
   .Cells(i, 5).FormulaR1C1 = "=MID(RC[-1],1,SEARCH("" "",RC[-1])-1)"
    .Cells(i, 5).Value = .Cells(i, 5).Value
    End If
If Cells(i, 4) Like ("* satış") Then
.Cells(i, 6).FormulaR1C1 = "=MID(RC[-2],1,SEARCH("" "",RC[-2])-1)"
 .Cells(i, 6).Value = .Cells(i, 6).Value
    End If
    Next
    End With
End Sub

 

[assenucler]

Teşekkürler ve hayırlı Ramazanlar üstadım.

Bir şey soracağım, kodu sayfanın "Kod Görüntüle" bölümüne yazdım. Dosyadaki kayıt sayısı yıl sonuna değin 800-900 arasında değişmektedir.

Bir sorun yaşar mıyım? Ya da başka bir şey yapmam gerekiyor mu?

For i = 7 To Range("B65536").End(3).Row ' satırı ne anlama geliyor?


İstanbul'dan Antalya'ya sevgi ve saygılar.

 

[vardar07]

Güzel dileklerinize ben teşekkür ederim.
"For i = 7 To Range("B65536").End(3).Row ' satırı ne anlama geliyor?" = Verileriniz 7 satırdan başladığı için döngüye diyoruz ki 7.nci satırdan başlayacaksın ve (dosyanızın son satırı 65536 son olduğu için 65536 yazdım) 65536.ncı satırdan yukarıya doğru en son dolu satıra kadar işlem yap. Bilmem açıklayıcı oldu mu?.
"Bir sorun yaşar mıyım? Ya da başka bir şey yapmam gerekiyor mu?" = Sayfa adını değiştirmediğiniz sürece sorun yaratmaz.

 

[assenucler]

Sağ olun, var olun. Her şey gönlünüzce olsun.