[Help] Về VBA trong excel (1 người xem)

[onecry]

Em có một file viết hóa đơn. mỗi lần click vào maccro lưu bên sheet in dữ liệu sẽ được save trong sheet lưu. nhưng có một vấn đề là những cell trống cũng được save. làm cách nào để maccro lưu chỉ save những dòng có dữ liệu, còn những dòng không có dữ liệu thì không save. xin mấy prồ giúp em. em cảm ơn rất nhiều.


file đây a. http://www.mediafire.com/?b04e7mthbm789t0

 

[ndu96081631]

up top. Xin mấy anh giúp em. Em cảm ơn rất nhiều ạ

Bạn "up" lần thứ nhất tôi đã xóa bài. Giờ lại "up" lần nữa
Cảnh cáo bạn: Nếu còn tái phạm sẽ bị xử lý kỷ luật theo nội quy

 

[onecry]

nếu mod xóa bài của member nên kèm theo lý do xóa nhé. Đó là phép lịch sự tối thiểu. Thân!

 

[ndu96081631]

nếu mod xóa bài của member nên kèm theo lý do xóa nhé. Đó là phép lịch sự tối thiểu. Thân!

Phép lịch sự tối thiểu của bạn là: ĐỌC KỸ NỘI QUY TRƯỚC KHI POST BÀI
Chúng tôi có thể xóa bài mà chẳng cần phải thông báo gì cả!
Tóm lại: Nếu bạn còn tái diễn cái trò "up up" gì gì đó thì chúng tôi cứ theo quy định mà làm
(Tôi rất ghét phải nói nhiều! Vậy nhé)

 

[dhn46]

Phép lịch sự tối thiểu của bạn là: ĐỌC KỸ NỘI QUY TRƯỚC KHI POST BÀI
Chúng tôi có thể xóa bài mà chẳng cần phải thông báo gì cả!
Tóm lại: Nếu bạn còn tái diễn cái trò "up up" gì gì đó thì chúng tôi cứ theo quy định mà làm
(Tôi rất ghét phải nói nhiều! Vậy nhé)

Thầy ơi bạn ấy mới tham gia 01/2013 và mới có 5 bài viết vậy nên để rút kinh nghiệm thầy nhỉ...
---------------------------
Gửi bạn : onecry
Có phải bạn muốn khi ghi dữ liệu vào Sheet Luu thì nếu bên Sheet IN từ O16 tới O28 nếu cái này có dữ liệu mới ghi phải không? Nếu đúng như vậy thì bạn thêm đoạn màu đỏ vào nhé

 For Each Cls In Range([o16], [o16].End(xlDown))
[COLOR=#ff0000] If Cls <> "" Then[/COLOR]
    With Sh.[S65500].End(xlUp).Offset(1)
        .Value = [Ac16].Value                   'SHD'
        .Offset(, 1).Value = Cells(Cls.Row, "AB").Value     'Ma SF'
        .Offset(, 2).Value = Cells(Cls.Row, "B").Value      'TenSF'
        .Offset(, 3).Value = Cells(Cls.Row, "M").Value      'DVT'
        .Offset(, 4).Value = Cells(Cls.Row, "S").Value      'Giá'
        .Offset(, 5).Value = Cells(Cls.Row, "o").Value      'SóLuong'
    End With
[COLOR=#ff0000]End If[/COLOR]
 Next Cls

Đọc File của bạn mà chỉ dám "đoán" thui, nếu bạn muốn trợ giúp gì nữa thì mô tả kỹ hơn 1 chút nha.
Thân!