Yazılan Kodda Değişiklik

[Eser Gökay]

Merhabalar

1-Aşağıdaki kodla bir Veriler Sayfasından Cari_Muavin Sayfasına veri aktarırken aktardığı sayfada her iki satırın arasına iki boş satır ekliyor. Bunu engellemek için kodun neresini düzeltmem gerekiyor.


Sub Makro_1()
Sheets("Veriler").Select
Set s1 = Sheets("Veriler")
Set s2 = Sheets("Cari_Muavin")

s2.Range("b4:g10000").ClearContents

For i = 5 To [b20205].End(3).Row
If s1.Cells(i, "b").Value = "E" Then
sat1 = 3 + Application.WorksheetFunction.Count(s2.Range("b4:g20205")) + 1
s2.Cells(sat1, "b").Value = s1.Cells(i, "e").Value
s2.Cells(sat1, "c").Value = s1.Cells(i, "c").Value
s2.Cells(sat1, "d").Value = s1.Cells(i, "d").Value
s2.Cells(sat1, "f").Value = s1.Cells(i, "n").Value
s2.Cells(sat1, "g").Value = s1.Cells(i, "m").Value
End If
Next i
End Sub


2- Aynı kodu farklı bir modulde X sayfasından yine Cari_Muavin sayfasına aynı aralıklara veri aktaracak sekilde yazacağım. Ancak bu sefer onceki modul Cari_Muavin sayfasına veri yazacağı için ilk boş satırdan başlaması gerekecek. Bunun icin sanırım once kırmızı satırı silmem gerekiyor ancak ilk boş satırı nasıl tanımlayacağımı bilmiyorum. Yardımlarınızı rica ederim.


Sub Uc_Cariler_Faturalari_al()
Sheets("X").Select
Set s1 = Sheets("X")
Set s2 = Sheets("Cari_Muavin")

s2.Range("b4:g10000").ClearContents
For i = 5 To [b20205].End(3).Row
If s1.Cells(i, "b").Value = "E" Then
sat1 = 3 + Application.WorksheetFunction.Count(s2.Range("b4:g20205")) + 1
s2.Cells(sat1, "b").Value = s1.Cells(i, "e").Value
s2.Cells(sat1, "c").Value = s1.Cells(i, "c").Value
s2.Cells(sat1, "d").Value = s1.Cells(i, "d").Value
s2.Cells(sat1, "f").Value = s1.Cells(i, "n").Value
s2.Cells(sat1, "g").Value = s1.Cells(i, "m").Value
End If
Next i
End Sub

 

[Ayhan Ercan]

Merhaba

sat1 = 3 + Application.WorksheetFunction.Count(s2.Range("b4:g 20205")) + 1

kodundaki en başta yazılan 3 + yı silip denermisiniz..?

sat1 = Application.WorksheetFunction.Count(s2.Range("b4:g 20205")) + 1

 

[Eser Gökay]

Sn Ercan tesekkur ediyorum. Denediğim bir yoldu ancak. 3+'yı silince sadece ilk satırı diğer sayfanın ilk satırına aktarıyor.

 

[Ayhan Ercan]

Dosyanızı yollayabilirmisiniz?

 

[Eser Gökay]

Dosyam büyük oldugu için bir örnek hazırlayıp hemen ekliyorum.

 

[Eser Gökay]

Tarayıcıda sıkıntı oldugu için geciktim. Özür dilerim.

 

[Eser Gökay]

Merhaba arkadaslar

yardımcı olabilecek kimse yok mu ?