satır açma değer değiştirme

[blnturkek]

selam a.

ekte sunulan tabloda satır açmak üst satıra altta yazmak ve - olan değeri + yapmak + olan değeri - yapmayı nasıl olduğunu bana yaaprsanız çok sevinirim.

Bu işlem bankadan gelen ekstraların muhaseb programlarını import edilmesi icin gereklidir. bu işlemi kendim bilgim ile yapınca biraz zaman alıyor yardımlaerınını bekliyorum.

 

[fedeal]

4 den itibaren satır açar d deki degerleri degiştirir.
Sub Makro1()
For i = 4 To [A65536].End(3).Row Step 2
Range("d" & i - 1).Value = Range("d" & i - 1) * -1
Rows(i).Select
Selection.Insert Shift:=xlDown
Next
End Sub

 

[dEdE]

Merhaba,

Acaba böyle bir şey mi istediniz?

 

[blnturkek]

Merhaba,

Acaba böyle bir şey mi istediniz?

evet gönderdiğiniz tam istediğim gibi teşekkür ederim. Şimdi bu makroyu diğer işmlere nasıl aktarırım. bide tarihde yazılması gerekiyordu.

 

[dEdE]

Şimdi bu makroyu diğer işmlere nasıl aktarırım. bide tarihde yazılması gerekiyordu.

Merhaba,
Tarihi yazması için aşağıdaki mavi satırı tutar yazan satırın altına ekleyiniz.
"...bu makroyu diğer işmlere nasıl aktarırım." konusunu anlamadım.
Hoşçakalın.

tutar = Cells(j, 4).Value * -1
        [COLOR="Blue"]Cells(j + 1, 2).Value = Cells(j, 2).Value[/COLOR]

 

[blnturkek]

filtre uygalamada süzme işleminde copylamak

ekteki reismde excel de süz işlemi yapip ver b sütünundan sıraladığım zaman altta gelecek satırlara kolaylık olsun diye secip copy yaptığım zaman satırlar değişiyor. bir kolay yolu varmı makro kullanmadan.

 

[blnturkek]

denem

makroyu ekleme yaptım.