[已解决]请老师给我改一下好吗

我叫冰吗

在“出库打印模板”表点保存时，能否把A序号列也保存到“全部出货明细”表中
"出库打印模板"点击保存时保存内容会成为空格，A序号列保存时不要清空，序号A列还要存在。

最佳答案

月排行榜 / 总排行榜

QLZ0602

2014-9-4 14:19

Sub dj_save()
    Dim r, r1, r2 As Long
    r = 3: r2 = 3
    With Sheets("出库打印模板")
        Do While .Cells(r + 1, "B") <> ""
            r = r + 1
            If .Cells(r, "F") <> "" Then r2 = r2 + 1
            If r = 24 Then Exit Do
        Loop
    End With
    If r = 3 Or r <> r2 Then
        MsgBox "单据主要区域未填齐！"
        Exit Sub
    End If
    With Sheets("全部出货明细")
        r1 = .Range("b65536").End(xlUp).Row + 1
        .Cells(r1, 2).Resize(r - 3, 1) = Range("B2")
        
       .Cells(r1, 1).Resize(r - 3, 1) = Cells(4, 1).Resize(r - 3, 1).Value
        For I = 3 To 8
            .Cells(r1, I).Resize(r - 3, 1) = Cells(4, I - 1).Resize(r - 3, 1).Value
        Next
        .Cells(r1, 9).Resize(r - 3, 1) = Range("E2")
        MsgBox "单据保存成功！"
    End With
    Cells(4, "B").Resize(21, 1).ClearContents
    Cells(4, "E").Resize(21, 2).ClearContents
End Sub

跳转到最佳答案楼层

QLZ0602

Sub dj_save()
    Dim r, r1, r2 As Long
    r = 3: r2 = 3
    With Sheets("出库打印模板")
        Do While .Cells(r + 1, "B") <> ""
            r = r + 1
            If .Cells(r, "F") <> "" Then r2 = r2 + 1
            If r = 24 Then Exit Do
        Loop
    End With
    If r = 3 Or r <> r2 Then
        MsgBox "单据主要区域未填齐！"
        Exit Sub
    End If
    With Sheets("全部出货明细")
        r1 = .Range("b65536").End(xlUp).Row + 1
        .Cells(r1, 2).Resize(r - 3, 1) = Range("B2")
        
       .Cells(r1, 1).Resize(r - 3, 1) = Cells(4, 1).Resize(r - 3, 1).Value
        For I = 3 To 8
            .Cells(r1, I).Resize(r - 3, 1) = Cells(4, I - 1).Resize(r - 3, 1).Value
        Next
        .Cells(r1, 9).Resize(r - 3, 1) = Range("E2")
        MsgBox "单据保存成功！"
    End With
    Cells(4, "B").Resize(21, 1).ClearContents
    Cells(4, "E").Resize(21, 2).ClearContents
End Sub

QLZ0602

2014-8-25录入数据保存.zip (14.45 KB, 下载次数: 7)

2014-9-4 14:40 上传

点击文件名下载附件