Formülü döngüye sokmak

[cetvel]

Merhaba arkadaşlar,

=eğer((parçaal(b2;1;5))="hesap";parçaal(b2;12;3);a1)

yukarıdaki formülü döngüye sokarak

b2:b100 hücresinden parça alarak karşılığı gelen a2:a100 kadar alınan parçayı karşılığı olan hücreye yani b2 den alınanı a2 ye; b3 ten alınanı a3 yazmasını nasıl haledebilirim.

Dosya ektedir

teşekkürler

 

[İhsan Tank]

Merhaba arkadaşlar,

=eğer((parçaal(b2;1;5))="hesap";parçaal(b2;12;3);a1)

yukarıdaki formülü döngüye sokarak

b2:b100 hücresinden parça alarak karşılığı gelen a2:a100 kadar alınan parçayı karşılığı olan hücreye yani b2 den alınanı a2 ye; b3 ten alınanı a3 yazmasını nasıl haledebilirim.

Dosya ektedir

teşekkürler

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub parçala_61()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Verileri Parçalıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If Mid(Cells(ts, "B"), 1, 5) = "HESAP" Then
Cells(ts, "A") = Mid(Cells(ts, "B"), 12, 3)
Else
Cells(ts, "A") = Cells(ts - 1, "A")
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Verileri Parçaladım", , "Bitiş"
End Sub