ANAHESAP yazan hücrenin üstündeki veri

[levo26]

Merhaba;
Ekte örneğini vermiş olduğum dosyada B sütununda ANA HESAP yazan yerler var. Burada ANA HESAP yazan hücrenin üstündeki hücrenin ilk 3 rakamını alacak ANA HESAP yazan hücrenin soluna yazacak. Bunu kod veya formül ile yapabiliriyim? Teşekkürler.

http://s3.dosya.tc/server13/bq9sng/ANA_HESAP.xlsx.html

 

[çıtır]

A3 hücresine kopyalayıp aşağı çekerek çoğaltınız.Kolay gelsin.

=EĞERHATA(EĞER($B3="ANA HESAP";SOLDAN($B2;3);"")+0;"")

 

[levo26]

A3 hücresine kopyalayıp aşağı çekerek çoğaltınız.Kolay gelsin.

=EĞERHATA(EĞER($B3="ANA HESAP";SOLDAN($B2;3);"")+0;"")

Teşekkürler Sayın Çıtır. Tam istediğim gibi... Sağolun.

 

[çıtır]

Teşekkürler Sayın Çıtır. Tam istediğim gibi... Sağolun.

Rica ederim .Dönüş yaptığınız için teşekkür ederim.Sayfanın kod bölümüne kopyalarsanız aşağıdaki kodda işinizi görür.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:B10000]) Is Nothing Then Exit Sub
On Error GoTo çıkış
If Target.Value = "ANA HESAP" Then
Target.Offset(0, -1) = Left(Target.Offset(-1, 0), 3)
Target.Offset(0, -1).Font.Name = "Comic Sans MS"
Target.Offset(0, -1).Font.Size = 10
Target.Offset(0, -1).Font.Bold = True
Target.Offset(0, -1).Font.Italic = True
Target.Offset(0, -1).HorizontalAlignment = xlCenter
Target.Offset(0, -1).VerticalAlignment = xlCenter
Target.Offset(0, -1).Font.ColorIndex = 55
Target.Offset(0, -1).Interior.ColorIndex = 6
Target.Offset(0, -1).Borders(xlEdgeLeft).Weight = xlMedium
Target.Offset(0, -1).Borders(xlEdgeTop).Weight = xlMedium
Target.Offset(0, -1).Borders(xlEdgeBottom).Weight = xlMedium
Target.Offset(0, -1).Borders(xlEdgeRight).Weight = xlMedium
Else
Target.Offset(0, -1) = ""
Target.Offset(0, -1).Interior.ColorIndex = xlNone
Target.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
Target.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
Target.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
Target.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
End If
çıkış:
End Sub