单据明细保存不能自动复制到新一行

gdmmmand

我在采购单填写完数据，点击保存数据，数据就自动保存到 采购明细表里，现在数据只能覆盖，不能在新一行添加。不知道哪里出错了，想请教各位大侠，谢谢！



Private Sub CommandButton1_Click()
Sheets("采购单").Select
'  Application.ActivePrinter = "\\hhh\Star NX-600 在 Ne02:"
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
   '     "\\hhh\Star NX-600 在 Ne02:", Collate:=True
    Sheets("采购单").Select
    Range("e7").Select

   
       Set Rng = Sheets("采购明细").[b65536].End(xlUp)
             Do While Cells(28 + i, 1) <> ""
        For j = 1 To 18
          Rng.Offset(1 + i, j - 2) = Cells(28 + i, j)
       Next
       i = i + 1
   Loop
   
   
'    Range("e7,e8:j8,e9,i9").Select
  '   Selection.ClearContents
  ActiveWorkbook.Save



End Sub

gdmmmand

请问一下，我的公式是不是有问题？

excel玉米

是不是要将i=i+1放在do while下面？

gdmmmand

excel玉米 发表于 2023-4-16 18:59
是不是要将i=i+1放在do while下面？

还是不行，一样不能在新一行添加记录

WANT-T

Rng = Sheets("采购明细").[b65536].End(xlUp)
你自己定位的，从第一行开始，然后覆盖写入；
明细和单据之间要通过单号来关联，有单号则更新，没有单号则插入，这是通常的处理方案！

gdmmmand

WANT-T 发表于 2023-4-17 10:20
Rng = Sheets("采购明细")..End(xlUp)
你自己定位的，从第一行开始，然后覆盖写入；
明细和单据之间要通 ...

解决问题了，公式没有错，是Excel软件出错，造成每次打开表格，都把某个单元格格式更改为日期格式了，数据就无法复制到新表里。

吴中泉

gdmmmand 发表于 2023-4-17 12:07
解决问题了，公式没有错，是Excel软件出错，造成每次打开表格，都把某个单元格格式更改为日期格式了，数 ...

你是根据这句Rng = Sheets("采购明细").[b65536].End(xlUp)来定位新增行位置,而B列联单标记恰恰好是空的,所以每次新增数据,都定位在第二行,所以就覆盖了老数字.第一次获得数据不存在问题,因为正好从第2行开始.

gdmmmand

吴中泉 发表于 2023-4-17 13:20
你是根据这句Rng = Sheets("采购明细")..End(xlUp)来定位新增行位置,而B列联单标记恰恰好是空的,所以每次 ...

谢谢啦