Aktarılan satırın bir alt satır olması

[1Al2Ver]

Merhaba,

Aşağıdaki kod son dolu satır olan 9 ncu satırdan sonraki ilk boş satıra yani 10 ncu satıra aktarma yapmaktadır,

s1.Cells(sat2 + 2, "g") = "=SUM(G10:G" & sat2 + 1 & ")"

bu komut G11:G aralığını toplamalı

Kodun 9 ncu satırdan sonra 2 nci boş olan 11 nci satıra aktarma yapmasını arzulamaktayım.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("satış")
Cancel = True
sat = Target.Row
Range("a" & sat & ":e" & sat).Interior.ColorIndex = 37
sat2 = s1.[a65536].End(3).Row + 1
s1.Rows(sat2).Insert
s1.Cells(sat2, "a") = sat2 - 9
s1.Cells(sat2, "b") = Cells(sat, "b")
s1.Cells(sat2, "c") = Cells(sat, "d")
s1.Cells(sat2, "d") = Cells(sat, "c")
s1.Cells(sat2, "f") = Cells(sat, "e")
s1.Cells(sat2 + 2, "g") = "=SUM(G10:G" & sat2 + 1 & ")"
End Sub

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Kod'da düzeltme olabilir mi ?

Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Eğer örnek dosya ekleseydiniz sorunuz daha anlaşılır olurdu. Anladığım kadarıyla yanıtlamaya çalışayım.

Eğer amacınız "=SUM(G10:G" & sat2 + 1 & ")" ifadesindeki 10 değerinide esnek yapmak ise aşağıdaki şekilde kullanabilirsiniz.

s1.Cells(sat2 + 2, "g") = "=SUM(G" & [COLOR=red]sat2[/COLOR] & ":G" & sat2 + 1 & ")"

 

[1Al2Ver]

Selamlar,

Eğer örnek dosya ekleseydiniz sorunuz daha anlaşılır olurdu. Anladığım kadarıyla yanıtlamaya çalışayım.

Eğer amacınız "=SUM(G10:G" & sat2 + 1 & ")" ifadesindeki 10 değerinide esnek yapmak ise aşağıdaki şekilde kullanabilirsiniz.

s1.Cells(sat2 + 2, "g") = "=SUM(G" & [COLOR=red]sat2[/COLOR] & ":G" & sat2 + 1 & ")"

Sayın Korhan Ayhan selamlar,

Düzelmesini istediğim kod "Liste" sayfasında kayıtlı,

10 ncu ve sonrasındaki satırlar, 9 ncu satır (ki başlık satırıdır) renkli ise renkli, çizgileri kalın ise de kalın olmakta,

Bu olumsuzluğu gidermek için aktarılan verilerin 10 ncu satır yerine 11 nci satırdan başlamasını istemiştim,

İlginiz için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Kodunuzun içinde geçen aşağıdaki kod bloğunu bir sonraki ile değiştirip denermisiniz.

Eski hali;

s1.Rows(sat2).Insert

Yeni hali;

s1.Rows(sat2 [COLOR=red]+ 1[/COLOR]).Insert

 

[1Al2Ver]

Selamlar,

Kodunuzun içinde geçen aşağıdaki kod bloğunu bir sonraki ile değiştirip denermisiniz.

Eski hali;

s1.Rows(sat2).Insert

Yeni hali;

s1.Rows(sat2 [COLOR=red]+ 1[/COLOR]).Insert

Sayın Korhan Ayhan, tekrar merhaba,

Teşekkür ederim, sorun halloldu, iyi sabahlar dilerim,

Saygılarımla.