formüllerin taşınan/kopyalanan satırların nosunu alma

[ahzola]

Selamlar

ekli dosyada ki izahatım.

Dosyamızda A sütunundaki veri ile çalışan makro var.
A sütununa 0 (sıfır) yazarsak satırı kopyalıyor.
A sütununa 1 (bir) yazarsak satırı en alta taşıyor.

Sorun :

EĞER(G5="";"";(EĞER(G5<>1;N5;EĞER(G5=1;N5+H5;" "))))

Örneğin yukarıdaki formülü taşıdığı/kopyaladığı satıra bireber aynısını götürüyor

Ben ise formüllerin taşınan/kopyalanan satırların nosunu almasını istiyorum.

G11 N11
G33 N33

gibi

yardımlarınızı esirgemiyiniz lütfen.
iyi hafta sonları tüm forum ahalisine.

 

[hb1201]

u5 hücresine şu formülü ujygulayın mesela;
=ADRES(SATIR(U5);SÜTUN(U5);4)

 

[ahzola]

Mesajınız için teşekkür ederim.

Uyguladım söylediğiniz sütuna lakin bir faydası olmadı.
Keşke biraz daha izahat etzseydiniz.
Belkide ben yapamadım.

Ama bu sorun makroya ilave ile yada yeniden
makro yazarak düzeltilir gibi geliyor. Tabii ustalarımız
daha doğrusunu bilirler.

 

[Huseyinkis]

Kopyalama işlemi ile yaptım bir test edermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
If Cells(Target.Row, 1).Value = "" Then
ElseIf Cells(Target.Row, 1).Value = 0 Then
Rows(Target.Row + 1).Insert
Range(Cells(Target.Row, 11), Cells(Target.Row, 20)).Copy
Cells(Target.Row + 1, 11).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(Target.Row, 1).Select
ElseIf Cells(Target.Row, 1).Value = 1 Then
sonsat = Cells(Rows.Count, 11).End(3).Row + 1
Range(Cells(Target.Row, 11), Cells(Target.Row, 20)).Copy
Cells(sonsat, 11).Select
ActiveSheet.Paste
Range(Cells(Target.Row, 11), Cells(Target.Row, 20)).ClearContents
Application.CutCopyMode = False
Cells(Target.Row, 1).Select
End If
End Sub

 

[ahzola]

Merhabalar;

Formülümüz kusursuz çalışıyor.

Elinize yüreğinize sağlık
Hüseyin Bey.

Herşey gönlünüzce olsun.