Boş olmayan verileri aktarma

[buseen]

adetleri olan ilaçları diger sayfaya nasıl aktara bilirim.TŞK

 

[Orion1]

Dosyanızı 2003 formatında yollarsanız daha hılzı cevap alabilirsiniz.Mesela bende 2007 yok.

 

[Ömer]

Merhaba,

Eklediğiniz dosyalarda koruma şifresi olmamasına özen gösteriniz.

.

 

[buseen]

Değiştirdim

 

[Orion1]

Dosyanız ektedir.

Sub dolu()
Dim i As Long, sat As Long
With Sheets("Dolu")
    sat = .Cells(65536, "B").End(xlUp).Row + 1
    Application.ScreenUpdating = False
    For i = 8 To Cells(65536, "D").End(xlUp).Row
        If Cells(i, "D").Value > 0 Then
                If sat >= 65533 Then
                    MsgBox "Dolu sayfasında satır doldu işlem iptal oldu." & vbLf _
                    & i & "Satırı ve sonraki satırlar kaydedilmedi", vbCritical, "UYARI"
                    Exit Sub
                End If
            .Range("A" & sat & ":D" & sat).Value = Range("A" & i & ":D" & i).Value
            sat = sat + 1
        End If
    Next i
    Application.ScreenUpdating = True
End With
MsgBox "İşlem tamamlandı." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
        
End Sub

 

[buseen]

Emeklerinizden dolayı Teşekkürler.

 

[Orion1]

Emeklerinizden dolayı Teşekkürler.

Rica ederim.

 

[ramazan kuyumcu]

Hocam bende vaktiyle buna benzer bir soru sormuştum, ancak eksik cevaplanmıştı.

birde siz bakarsanız çok sevinirim.,

Şimdiden çok teşekkürler.

DOYA EKTEDİR.


a-b-c-d-e sutunlarından oluşan uzun bir listede "e" sutunundaki değere göre diğer sayfalarda yeni listeler oluşturmak istiyorum. şöyleki,

"e" sutununda üç ayrı değer var bu değerler "1" "2" ve "boş hücre" yani üç yeni liste oluşturulucak ilki boş olanlar ikincisi 1 üçüncü liste 2 değerlerine göre yeni listeler olacak.