dolu hücrenin numarasını başka yere yazma

[a.bahsi]

merhaba sorum şudur b1:b5000 sütünunda veriler olacak .iş yapıldığına dair "x" işareti .en son hangi hücreye değer girdiysem mesela b225;yanındakisütün a 225 de sıra nosuda "225" olacak ve mesela f1 hücresine 225 diye girecek.doğal olarak ilerleyen safhalarda b3240 da sıra no a3240 hücresinde 3240 sayısı f1 hücresinde 3240 yazacak

 

[baydeniro]

Merhaba a.bahsi
"X" ibaresini C sütununa yazdığınız varsayarsak, aşağıdaki kodu "Sayfa Modülü" altına kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, 3) = Target.Offset(0, -2)
End If
End Sub

 

[a.bahsi]

öncelikle teşekkürler baydeniro ama kod yazmasını bilmiyorum açıkçası.biraz uğraştıktan sonra şöyle bir sonuca ulaştım. sayılar sıralar örnektir.

=EĞER(B2542<>0;A2541+1;"")

eğer B2542 hücresi dolu ise yani sıfırdan farklı ise A2542 hücresine, bir önceki A2541 deki 2541 sıra numarasına 1 ekleyerek 2542 yazıyor ve daha sonra F555 hücresine de =mak(A:A) dan da (tüm A sütünunda olan maksimum sayıyı bularak) 2542 sıralamasını yazıyor.