粘贴数据旁边的连续数字的Excel VBA代码

时间：2016-07-26 20:58:00

标签： excel vba excel-vba

我有一个Userform，其中一个命令按钮从sheet1（＆＃34; DATOS GENERALES＆＃34;）范围（F4：N22）复制数据并粘贴到sheet2（＆＃34; CARRITO＆＃34;）选择B10并寻找下一个空行。到目前为止一切都很顺利，但现在我需要在第1列（A10）的每个粘贴旁边放一个连续的数字。

我的问题是它粘贴在不同的行上，因为数据包含数据的行数不同。例如，第一个粘贴将从B10：J15开始，此时我应该有＆＃34; 01＆＃34;在A10和下一个粘贴它从B16：J20开始，并应自动增加A16与＆＃34; 2＆＃34;等等。就像我说下一个空单元格的过去工作正常，问题在于自动编号。我将放置始终从A10回忆的代码示例。

我非常感谢你的帮助。

Private Sub CommandButton4_Click()
   Worksheets("DATOS GENERALES").Range("F4:N20").Copy
   Sheets("CARRITO").Select
   Range("B1").End(xlDown).Offset(1, -1).Select
   Selection.Value = Range("A10").Value + 1
   Range("B1").End(xlDown).Offset(1, 0).Select
   Selection.PasteSpecial xlPasteFormats
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
   False, Transpose:=False

   Sheets("DATOS GENERALES").Select
   Range("F4:N22").Cells.ClearContents
   Application.CutCopyMode = False
   Sheets("DATOS GENERALES").Range("F4:N20").ClearFormats
   Range("F2:G2").Cells.ClearContents
   Range("Q1:Q16").Cells.ClearContents
   Range("H2:I2").Cells.ClearContents



End Sub

目前它编号为A10至＆＃34; 1＆＃34;和A16到＆＃34; 2＆＃34;如果下一个过去是在B25，它会把A25放到＆＃34; 2＆＃34;。

以下代码对所有缩写都有Dim。从一个纸张发送到另一个纸张的值根据机柜的类型而变化，但是例如一些具有铰链，其他具有滑块，而另一些具有这样的目标纸张添加数量并添加它们，它们的范围从A列到M列那些不带任何类型硬件的人应该放置＆＃34; 0＆＃34;在其余的行上。不知怎的，它不起作用。

以下是减少代码大小的预期代码，因为如果我现在运行代码（我将在下面）仅在Windows 10中运行代码。

Dg.Select
If Cells(2, 6) = "" Then
    MsgBox "SELECCIONAR MUEBLE"
    Range("Q1").Cells.ClearContents
    Range("H2:I2").Cells.ClearContents
    Exit Sub
    ElseIf Cells(2, 8) = "" Then
    MsgBox "SELECCIONE CANTIDAD"
    Exit Sub
ElseIf Cells(1, 17) = "" Then
    MsgBox "FAVOR DE INDICAR ANCHO DEL MUEBLE"
    Exit Sub
ElseIf Cells(2, 17) = "" Then
    MsgBox "FAVOR DE INDICAR ALTO DEL MUEBLE"
    Exit Sub
    ElseIf Cells(4, 17) = "" Then
    MsgBox "FAVOR DE INDICAR FONDO DEL MUEBLE"
    Exit Sub
    ElseIf Cells(2, 6) = "BASE TARJA" Then
With Tarja
    Set Target = Dg.Range("F4")
    .Range("A2:I7").Copy

    Target.PasteSpecial xlPasteFormats
    Target.PasteSpecial Paste:=xlValues, Operation:=xlNone,                    SkipBlanks:= 
                           False, Transpose:=False
    'HERRAJE
    With Tarja
    Set Target = Herraje.Range("A2").End(xlDown).Offset(1)
        Range("B24").Copy  'BISAGRA 110
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Set Target = Herraje.Range("E2").End(xlDown).Offset(1)
        Range("B21").Copy   'PATAS
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Set Target = Herraje.Range("F2").End(xlDown).Offset(1)
        Range("B20").Copy   'CONFIRMATS
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone,         SkipBlanks:=False, Transpose:=False
    Set Target = Herraje.Range("G2").End(xlDown).Offset(1)
        Range("B25").Copy   'JALADERAS
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Set Target = Herraje.Range("H2").End(xlDown).Offset(1)
        Range("B22").Copy   'CHILILLO 5/8
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Set Target = Herraje.Range("I2").End(xlDown).Offset(1)
        Range("B23").Copy   'CHILILLO BISAGRA
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone,    SkipBlanks:=False, Transpose:=False
End With
ElseIf Cells(2, 6) = "BASE FULL DOOR" Then
With Fd 'IT REPEATS

当前工作代码，但对于Windows 7来说很大。

Private Sub CommandButton4_Click()
On Error GoTo errHandler
Application.ScreenUpdating = False

Dim wb1 As Workbook
Dim Dg, Herraje, Complementos, Carrito, Listbox, Tarja, Fd, Pc, Cajonera,       Be9, Ciegofd, Barrafd, Pantryc, Pantryh, Scomun, Sdiagonal, Se9, Shzls, Shzld,     Smicroondas, Scampana, Srefrigerador As Worksheet
Dim modulo, desgloce, cantidad As Range

Set wb1 = Workbooks("LISTA_DE_CORTE_V1_1.xlsm")
Set Dg = Worksheets("DATOS GENERALES")
Set Herraje = Worksheets("HERRAJE")
Set Complementos = Worksheets("COMPLEMENTOS")
Set Carrito = Worksheets("CARRITO")
Set Listbox = Worksheets("LISTBOX")
Set Tarja = Worksheets("TARJA")
Set Fd = Worksheets("FULL_DOOR")
Set Pc = Worksheets("PUERTA_CAJON")
Set Cajonera = Worksheets("CAJONERA")
Set Be9 = Worksheets("ESQUINERO_90")
Set Ciegofd = Worksheets("CIEGO_FULL_DOOR")
Set Barrafd = Worksheets("BARRA_FD")
Set Pantryc = Worksheets("PANTRY_COMUN")
Set Pantryh = Worksheets("PANTRY_HORNO")
Set Scomun = Worksheets("SUPERIOR_COMUN")
Set Sdiagonal = Worksheets("SUPERIOR_DIAGONAL")
Set Se9 = Worksheets("SUP_ESQ_90")
Set Shzls = Worksheets("SUPERIOR_HZL_SENCILLO")
Set Shzld = Worksheets("SUPERIOR_HZL_DOBLE")
Set Smicroondas = Worksheets("SUPERIOR_MICRO")
Set Scampana = Worksheets("SUPERIOR_CAMPANA")
Set Srefrigerador = Worksheets("SUPERIOR_REFRI")


Dg.Range("F2:G2").Value = ComboBox7.Text
Dg.Range("H2:I2").Value = TextBox15.Text
Dg.Range("Q1").Value = TextBox5.Text
Dg.Range("Q2").Value = TextBox6.Text
Dg.Range("Q4").Value = TextBox7.Text
Dg.Range("Q5").Value = TextBox9.Text
Dg.Range("Q6").Value = ComboBox8.Text
Dg.Range("Q7").Value = TextBox8.Text
Dg.Range("B18").Value = TextBox10.Text
Dg.Range("B19").Value = TextBox11.Text
Dg.Range("B20").Value = TextBox12.Text
Dg.Range("B21").Value = TextBox13.Text
Dg.Range("B22").Value = TextBox14.Text


    Dg.Select
Range("F4:N17").Cells.ClearContents
If Cells(2, 6) = "" Then
    MsgBox "SELECCIONAR MUEBLE"
    Range("Q1").Cells.ClearContents
    Range("H2:I2").Cells.ClearContents
    Exit Sub
ElseIf Cells(2, 8) = "" Then
    MsgBox "SELECCIONE CANTIDAD"
    Exit Sub
ElseIf Cells(1, 17) = "" Then
    MsgBox "FAVOR DE INDICAR ANCHO DEL MUEBLE"
    Exit Sub
ElseIf Cells(2, 17) = "" Then
    MsgBox "FAVOR DE INDICAR ALTO DEL MUEBLE"
    Exit Sub
ElseIf Cells(4, 17) = "" Then
    MsgBox "FAVOR DE INDICAR FONDO DEL MUEBLE"
    Exit Sub
ElseIf Cells(2, 6) = "BASE TARJA" Then
Dg.Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Tarja.Visible = True
Tarja.Select
Range("A2:I7").Select
Selection.Copy
Dg.Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Dg.Select
'HERRAJE
Herraje.Select
Range("A50").End(xlUp).Offset(1, 0).Select
Selection.Value = Tarja.Range("B24").Value 'BISAGRA 110
Herraje.Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Tarja.Range("B21").Value
Herraje.Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Tarja.Range("B20").Value
Herraje.Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Tarja.Range("B25").Value
Herraje.Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Tarja.Range("B22").Value
Herraje.Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Tarja.Range("B23").Value


Herraje.Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Herraje.Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Herraje.Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Herraje.Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = "0"
Herraje.Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = "0"
Herraje.Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = "0"
Tarja.Visible = False
ElseIf Cells(2, 6) = "BASE FULL DOOR" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("FULL_DOOR").Visible = True
Sheets("FULL_DOOR").Select
Range("A2:I8").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("FULL_DOOR").Range("B24").Value 'BISAGRA 110
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("FULL_DOOR").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("FULL_DOOR").Range("B21").Value 'PATAS
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("FULL_DOOR").Range("B20").Value 'CONFIRMATS
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("FULL_DOOR").Range("B25").Value 'JALADERAS
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("FULL_DOOR").Range("B22").Value 'CHILILLO 5/8
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("FULL_DOOR").Range("B23").Value 'CHILILLO     BISAGRA
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = "0"
Sheets("FULL_DOOR").Visible = False
ElseIf Cells(2, 6) = "BASE PUERTA CAJON" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("PUERTA_CAJON").Visible = True
Sheets("PUERTA_CAJON").Select
Range("A2:I13").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("PUERTA_CAJON").Range("B24").Value 'BISAGRA 110
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("PUERTA_CAJON").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = Worksheets("PUERTA_CAJON").Range("B26").Value
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Worksheets("PUERTA_CAJON").Range("B21").Value
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Worksheets("PUERTA_CAJON").Range("B20").Value
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Worksheets("PUERTA_CAJON").Range("B25").Value
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Worksheets("PUERTA_CAJON").Range("B22").Value
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Worksheets("PUERTA_CAJON").Range("B23").Value
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = Worksheets("PUERTA_CAJON").Range("B27").Value
Sheets("PUERTA_CAJON").Visible = False
ElseIf Cells(2, 6) = "BASE CAJONERA" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("CAJONERA").Visible = True
Sheets("CAJONERA").Select
Range("A2:I12").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select 'BISAGRA 110
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("CAJONERA").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = Worksheets("CAJONERA").Range("B26").Value
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Worksheets("CAJONERA").Range("B21").Value
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Worksheets("CAJONERA").Range("B20").Value
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Worksheets("CAJONERA").Range("B25").Value
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Worksheets("CAJONERA").Range("B22").Value
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Worksheets("CAJONERA").Range("B23").Value
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = Worksheets("CAJONERA").Range("B27").Value
Sheets("CAJONERA").Visible = False
ElseIf Cells(2, 6) = "BASE ESQUINERO 90" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("ESQUINERO_90").Visible = True
Sheets("ESQUINERO_90").Select
Range("A2:I12").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select 'BISAGRA 110
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = Worksheets("ESQUINERO_90").Range("B24").Value
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = Worksheets("ESQUINERO_90").Range("B25").Value
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("ESQUINERO_90").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Worksheets("ESQUINERO_90").Range("B21").Value
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Worksheets("ESQUINERO_90").Range("B20").Value
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Worksheets("ESQUINERO_90").Range("B26").Value
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Worksheets("ESQUINERO_90").Range("B22").Value
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Worksheets("ESQUINERO_90").Range("B23").Value
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = "0"
Sheets("ESQUINERO_90").Visible = False
ElseIf Cells(2, 6) = "BASE CIEGO FULL DOOR" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("CIEGO_FULL_DOOR").Visible = True
Sheets("CIEGO_FULL_DOOR").Select
Range("A2:I9").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B24").Value 'BISAGRA     110
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B26").Value
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B21").Value
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B20").Value
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B25").Value
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B22").Value
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Worksheets("CIEGO_FULL_DOOR").Range("B23").Value
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = "0"
Sheets("CIEGO_FULL_DOOR").Visible = False
ElseIf Cells(2, 6) = "BASE BARRA FULL DOOR" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("BARRA_FD").Visible = True
Sheets("BARRA_FD").Select
Range("A2:I12").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("BARRA_FD").Range("B24").Value 'BISAGRA 110
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("BARRA_FD").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = Worksheets("BARRA_FD").Range("B26").Value
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Worksheets("BARRA_FD").Range("B21").Value
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Worksheets("BARRA_FD").Range("B20").Value
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Worksheets("BARRA_FD").Range("B25").Value
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Worksheets("BARRA_FD").Range("B22").Value
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Worksheets("BARRA_FD").Range("B23").Value
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = "0"
Sheets("BARRA_FD").Visible = False
ElseIf Cells(2, 6) = "PANTRY COMUN" Then
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
Sheets("PANTRY_COMUN").Visible = True
Sheets("PANTRY_COMUN").Select
Range("A2:I10").Select
Selection.Copy
Sheets("DATOS GENERALES").Select
Range("F4").Select
Selection.PasteSpecial xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
'HERRAJE
Worksheets("HERRAJE").Select
Range("A50").End(xlUp).Offset(1, 0).Select
Selection.Value = Worksheets("PANTRY_COMUN").Range("B24").Value 'BISAGRA 110
Worksheets("HERRAJE").Select
Range("B50").End(xlUp).Offset(1, 0).Select 'BISAGRA 170
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("C50").End(xlUp).Offset(1, 0).Select 'BISAGRA UNION
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("L50").End(xlUp).Offset(1, 0).Select 'BISAGRA 45
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("M50").End(xlUp).Offset(1, 0).Select 'PINS
Selection.Value = Worksheets("PANTRY_COMUN").Range("B28").Value
Worksheets("HERRAJE").Select
Range("D50").End(xlUp).Offset(1, 0).Select 'RIEL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("E50").End(xlUp).Offset(1, 0).Select 'PATAS
Selection.Value = Worksheets("PANTRY_COMUN").Range("B21").Value
Worksheets("HERRAJE").Select
Range("F50").End(xlUp).Offset(1, 0).Select 'CONFIRMATS
Selection.Value = Worksheets("PANTRY_COMUN").Range("B20").Value
Worksheets("HERRAJE").Select
Range("G50").End(xlUp).Offset(1, 0).Select 'JALADERAS
Selection.Value = Worksheets("PANTRY_COMUN").Range("B25").Value
Worksheets("HERRAJE").Select
Range("H50").End(xlUp).Offset(1, 0).Select 'CHILILLO 5/8
Selection.Value = Worksheets("PANTRY_COMUN").Range("B22").Value
Worksheets("HERRAJE").Select
Range("I50").End(xlUp).Offset(1, 0).Select 'CHILILLO BISAGRA
Selection.Value = Worksheets("PANTRY_COMUN").Range("B23").Value
Worksheets("HERRAJE").Select
Range("J50").End(xlUp).Offset(1, 0).Select 'SISTEMA HORIZONTAL
Selection.Value = "0"
Worksheets("HERRAJE").Select
Range("K50").End(xlUp).Offset(1, 0).Select 'MINIFIX
Selection.Value = "0"
Sheets("PANTRY_COMUN").Visible = False

Else
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearFormats
Range("F4:N22").Cells.ClearContents
End If

Application.CutCopyMode = False
ActiveWorkbook.Save

'Copiar y pegar en carrito

Dim Target As Range

With Worksheets("DATOS GENERALES")
    Set Target = Sheets("CARRITO").Range("B1").End(xlDown).Offset(1)
    .Range("F4:N20").Copy

    Target.Offset(0, -1).Value =   WorksheetFunction.Max(Sheets("CARRITO").Columns(1)) + 1

    Target.PasteSpecial xlPasteFormats
    Target.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                           False, Transpose:=False

    .Range("F4:N22").Cells.ClearContents
    .Range("F4:N20").ClearFormats
    .Range("F4:N22,F2:G2,Q1:Q16,H2:I2").ClearContents
End with

'////////////////

'Copiar y pegar de carrito a "LISTBOX"
Sheets("CARRITO").Visible = True
Sheets("CARRITO").Select
Range("A1000").End(xlUp).Select
ActiveCell.Resize(1, 2).Copy
Sheets("LISTBOX").Visible = True
Sheets("LISTBOX").Select
lMaxRows = Cells(Rows.Count, "D").End(xlUp).Row
Range("D" & lMaxRows + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Sheets("LISTBOX").Visible = False
Sheets("CARRITO").Visible = False
'///////////////
Sheets("DATOS GENERALES").Select
Range("F4:N22").Cells.ClearContents
Application.CutCopyMode = False
Sheets("DATOS GENERALES").Range("F4:N20").ClearFormats
Range("F2:G2").Cells.ClearContents
Range("Q1:Q16").Cells.ClearContents
Range("H2:I2").Cells.ClearContents

'Listbox1 Agregar Articulo

ListBox1.ListIndex = ListBox1.ListIndex
ListBox2.ListIndex = ListBox2.ListIndex


'//////////////
Worksheets("HERRAJE").Visible = False



Application.ScreenUpdating = True
errHandler:
Application.ScreenUpdating = True


End Sub

3 个答案:

答案 0 :(得分：1)

替换

Selection.Value = Range("A10").Value + 1

使用

Selection.Value = Selection.End(xlUp) + 1

答案 1 :(得分：0)

替换

的行 
Selection.Value = Range("A10").Value + 1

与

Selection.Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

答案 2 :(得分：0)

我使用删除不必要的单元格选择，组合范围地址并使用With Worksheets("DATOS GENERALES")来简化引用，从而重构了代码。我还提出了YowE3K建议并使用WorksheetFunction.Max来确定下一个增量。

Private Sub CommandButton4_Click()
    Dim Target As Range

    With Worksheets("DATOS GENERALES")
        Set Target = Sheets("CARRITO").Range("B1").End(xlDown).Offset(1)
        .Range("F4:N20").Copy

        Target.Offset(0, -1).Value = WorksheetFunction.Max(Sheets("CARRITO").Columns(1)) + 1

        Target.PasteSpecial xlPasteFormats
        Target.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                               False, Transpose:=False

        .Range("F4:N22").Cells.ClearContents
        .Range("F4:N20").ClearFormats
        .Range("F4:N22,F2:G2,Q1:Q16,H2:I2").ClearContents

    End With

End Sub
相关问题
最新问题