İlgili satırı getirme

[alfa&omega]

Merhaba ekteki dosyada detayını gorebılırısınız. Yapmaya calistigim sey; ilgili fatura numarasını alt kısımlarında detayı mevcut, damga vergısı olan satırdakı rakamı kdv rakamının yanına getırmesını ıstıyorum nasıl yapabılırım acaba.

Tsk

 

[Huseyinkis]

Merhaba ekteki dosyada detayını gorebılırısınız. Yapmaya calistigim sey; ilgili fatura numarasını alt kısımlarında detayı mevcut, damga vergısı olan satırdakı rakamı kdv rakamının yanına getırmesını ıstıyorum nasıl yapabılırım acaba.

Tsk

Ekteki Kod Denermisiniz.

Sub Yaz()

For I = 1 To Cells(65536, 3).End(xlUp).Row
If Range("C" & I).Value = "Sözleşme Damga Vergisi" Then
Range("I" & I - 1).Value = Range("J" & I).Value
End If
Next
End Sub

 

[alfa&omega]

merhaba istedigim tam bu sekilde cok tesekkurler. yalniz damga vergisi rakamlarını "k" sutununda toplam kdv rakamının oldugu satıra getırebılrı mı bı alt satıra getırıyor

tekrar cok tesekkurler

 

[Huseyinkis]

merhaba istedigim tam bu sekilde cok tesekkurler. yalniz damga vergisi rakamlarını "k" sutununda toplam kdv rakamının oldugu satıra getırebılrı mı bı alt satıra getırıyor

tekrar cok tesekkurler

Sub Yaz()

For I = 1 To Cells(65536, 3).End(xlUp).Row
If Range("C" & I).Value = "Sözleşme Damga Vergisi" Then
Range("K" & I - 3).Value = Range("J" & I).Value
End If
Next
End Sub

bu şekilde denermisiniz.