Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
Private Sub cbtNueClien_Click()
'Entrada_Salida = Clear On Error Resume Next
Dim fila As Integer
Set ws = ActiveSheet
'xxxxxxxxxxxx'Verifica si ya existe el nombre en dataSet busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'significa que lo encontróMsgBox ("Este nombre ya está registrado. Verifica y corrige...."), vbInformation, "Existe"
Exit Sub 'Si existe sale sin guardarEnd If
'xxxxxxxxx'Inserta datos de nuevo cliente With ws
fila = .Range("A2:A2500").Find(txtCod, lookat:=xlWhole).Row
If Err.Number = 91 Then
fila = .Range("b" & .Rows.Count).End(xlUp)(2).Row
Call ingresar_datos(fila) 'Macro que inserta el registroExit Sub
End If
Call ingresar_datos(fila) 'Macro que inserta el registro
End With
End SubPrivate Sub cbtNueClien_Click()
' --- Entrada_Salida = Clear On Error Resume Next
Dim fila As Integer
Set ws = ActiveSheet
' ' --- Verifica si ya existe el nombre en data Set busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'significa que lo encontróMsgBox ("Este nombre ya está registrado. Verifica y corrige...."), vbInformation, "Existe"
Exit Sub 'Si existe sale sin guardar End If
' ' --- Inserta datos de nuevo cliente With ws
fila = .Range("A2:A2500").Find(txtCod, lookat:=xlWhole).Row
If Err.Number = 91 Then
fila = .Range("B" & .Rows.Count).End(xlUp)(2).Row
End If
Call ingresar_datos(fila) 'Macro que inserta el registroIf fila=2500 Then Call HojaNueva()
End With
End Sub
Sub Hoja_Nueva()
Dim fila As Integer, Old_Name As String, New_Hoja As String, _
posi As Integer, New_Name As StringOld_Name = ActiveSheet.Name
posi = InStr(Old_Name, "-")
If posi = 0 ThenNew_Name = Old_Name & "-1"
Else
New_Name = Left$(Old_Name, posi) & Val(Mid$(Old_Name, posi + 1)) + 1
End If
Sheets.AddNew_Hoja = ActiveSheet.Name
Sheets(New_Hoja).Name = New_Name
End Sub
' --- OPCION - 1 -- Añadir hoja al final' --- Antes -> | CAT /|Productos /| Silverado /
' --- Despues -> | CAT /|Productos /| Silverado /| CAT-1 /
Sheets.Add After:=Sheets(Sheets.Count)
' --- OPCION - 2 -- Añadir hoja a la izquierda de la actual
'' --- Antes -> | CAT /|Productos /| Silverado /
' --- Despues -> | CAT-1 /| CAT /|Productos /| Silverado /
Sheets.Add
' --- OPCION - 3 -- Añadir hoja a la derecha de la actual
'' --- Antes -> | CAT /|Productos /| Silverado /
' --- Despues -> | CAT /| CAT-1 /|Productos /| Silverado /
1.- PRODUCTOS
2.- CAT
3.- JOHN DEERE
4.- SILVERADO
5.- INTERNACIONAL
6.- ENTRADA
7.- SALIDA
Private Sub cbtNueClien_Click()
' --- Entrada_Salida = Clear On Error Resume Next
Dim fila As Integer
Set ws = ActiveSheetPRODUCTOS
PRODUCTOS-1CAT
CAT-1CAT-2JOHN DEERE
SILVERADO
NTERNACIONAL
ENTRADA
SALIDA
’ ' --- Verifica si ya existe el nombre en data Set busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'significa que lo encontróMsgBox ("Este nombre ya está registrado. Verifica y corrige...."), vbInformation, "Existe"
Exit Sub 'Si existe sale sin guardar End IfPRODUCTOS
PRODUCTOS-1CAT
CAT-1CAT-2CAT-3JOHN DEERE
SILVERADO
NTERNACIONAL
ENTRADA
SALIDA
Sheets(“JOHN DEERE”).select
Sheets.addNew_Hoja = ActiveSheet.Name
Sheets(New_Hoja).Name = New_Name
Sheets(New_Name).Select
.List = Array("PRODUCTOS", "CAT", "JOHN DEERE", "SILVERADO", "INTERNACIONAL", "ENTRADA", "SALIDA")
lista.RowSource = hojaRow.Address
Call BuscaCambio
Call contador
’ ' --- Verifica si ya existe el nombre en data
Set busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'significa que lo encontróMsgBox ("Este nombre ya está registrado. Verifica y corrige...."), vbInformation, "Existe"
Exit Sub 'Si existe sale sin guardar End If