sütun boşsa başka sayfaya atmak

[Fuat Şirin]

boyahane sayfasında bulunan verilerden a2:I65536 arası dolu olupta j sütünu boş olan tüm verileri
"bekleyen" adlı sayfada toplamak istiyorum
bekleyen sayfasını açmadım yardımcı olacak arkadaş eklerse sevinirim

 

[Fuat Şirin]

arkadaşlar yardım ederseniz sevinirim

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub Raporla()
On Error Resume Next
Dim s1, s2 As Object
Set s1 = Sheets("boyahane")
Set s2 = Sheets("bekleyen")
s2.[a2:I1000].ClearContents
      For j = 2 To s1.[a65536].End(3).Row
        If s1.Cells(j, "j").Value = "" Then
            sat = s2.[a65536].End(3).Row + 1
            Range(s2.Cells(sat, "a"), s2.Cells(sat, "I")).Value = Range(s1.Cells(j, "a"), s1.Cells(j, "I")).Value
        End If
      Next j
MsgBox "Raporlama Bitti." & Chr(10) & Chr(10) & "Kontrol Ediniz!", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
[A1].Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Fuat Şirin]

hocam harika bu konu ile alakalı bir şey daha sormak istiyorum
mesela userformda labelda g sütununun toplamını almak istiyorum bunu nasıl yaparım
sayfa1!g sütunu mesela

 

[Recep İpek]

Label1.Caption = Application.WorksheetFunction.Sum(Sheets("bekleyen").Range("g2:g100"))


kodunu deneyiniz.

 

[Fuat Şirin]

hocam çok tşk
çok işime yaradı
saolun hayırlı geceler

 

[Recep İpek]

Sizede hayırlı geceler...