Anónimo
Agregar varias combinaciones
Buenas tardes.
Tengo una hoja de excel en donde hago varias combinaciones de articulo y me da diferentes respuestas pero yo quisiera que con un macro me las copie en otro renglón cada vez que haga una nueva combinación se podrá hacer esto.
Si se puede dame tu correo para que veas las hojas el mí es:
Ayúdeme gracias...
Tengo una hoja de excel en donde hago varias combinaciones de articulo y me da diferentes respuestas pero yo quisiera que con un macro me las copie en otro renglón cada vez que haga una nueva combinación se podrá hacer esto.
Si se puede dame tu correo para que veas las hojas el mí es:
Ayúdeme gracias...
1 Respuesta
Respuesta de Cadipas spain
1
Ya te he contestado vía email, pero cuelgo la macro:
Public Sub CommandButton1_Click()
Dim f As Integer
Dim c As Byte
Dim cc As Object
Dim fila As Integer
Dim per As Boolean
c = 3
Range("z14:ab23") = ""
For f = 30 To Cells(65000, 3).End(xlUp).Row
paco = VarType(Cells(f, c))
If paco <> 10 Then
per = False
localiza = StrConv(Cells(f, c), vbUpperCase)
If Cells(f, c) <> "" And Cells(f, c) <> 0 Then
ff = 14
For ff = 14 To 23
If Cells(ff, 26) = Cells(f, c) Then
Cells(ff, 28) = Cells(ff, 28) + Cells(f, 8)
per = True
Exit For
Else:
If Cells(ff, 26) = "" Then
Cells(ff, 26) = Cells(f, c)
Cells(ff, 27) = Cells(f, c + 1)
Cells(ff, 28) = Cells(f, c + 5)
per = True
Exit For
End If
End If
Next ff
If per = False Then
Cells(ff + 1, 26) = Cells(f, c)
Cells(ff + 1, 27) = Cells(f, c + 1)
Cells(ff + 1, 28) = Cells(f, c + 5)
End If
End If
End If
Next f
Range("Z14:AB23").Sort Key1:=Range("Z14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1 _
:=xlSortNormal
End Sub
Te recuerdo, que hay que cerrar la pregunta y valorar la ayuda prestada..
Public Sub CommandButton1_Click()
Dim f As Integer
Dim c As Byte
Dim cc As Object
Dim fila As Integer
Dim per As Boolean
c = 3
Range("z14:ab23") = ""
For f = 30 To Cells(65000, 3).End(xlUp).Row
paco = VarType(Cells(f, c))
If paco <> 10 Then
per = False
localiza = StrConv(Cells(f, c), vbUpperCase)
If Cells(f, c) <> "" And Cells(f, c) <> 0 Then
ff = 14
For ff = 14 To 23
If Cells(ff, 26) = Cells(f, c) Then
Cells(ff, 28) = Cells(ff, 28) + Cells(f, 8)
per = True
Exit For
Else:
If Cells(ff, 26) = "" Then
Cells(ff, 26) = Cells(f, c)
Cells(ff, 27) = Cells(f, c + 1)
Cells(ff, 28) = Cells(f, c + 5)
per = True
Exit For
End If
End If
Next ff
If per = False Then
Cells(ff + 1, 26) = Cells(f, c)
Cells(ff + 1, 27) = Cells(f, c + 1)
Cells(ff + 1, 28) = Cells(f, c + 5)
End If
End If
End If
Next f
Range("Z14:AB23").Sort Key1:=Range("Z14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1 _
:=xlSortNormal
End Sub
Te recuerdo, que hay que cerrar la pregunta y valorar la ayuda prestada..