Tengo un formulario desde el cual puedo agregar datos a una hoja de Excel
se compara la celda Nombre "Hoja14.Cells(j, 2)" con el TextCLIENTE. Si cliente NO esta registrado, lo registra y agrega los datos. Pero si el cliente ya esta registrado quiero que lo modifique con los nuevos datos asignados
El código que tengo funciona para registrar un nuevo cliente. EL PROBLEMA SURGE AL MOMENTO DE MODIFICARLO (SI SE MODIFICA) PERO TAMBIEN LO AGREGA.
Este es el código que tengo:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim Final As Integer
Dim Final2 As Integer
For i = 2 To 30000
If Hoja14.Cells(i, 2) = "" Then
Final2 = i
Exit For
Exit Sub
End If
For j = 2 To 30000
If Hoja14.Cells(j, 2) = "" Then
Final = j - 1
Exit For
End If
Next
For j = 2 To Final
If TextCLIENTE = Hoja14.Cells(j, 2) Then
Hoja14.Cells(j, 1) = TextFECHA
Hoja14.Cells(j, 3) = TextPRODUCTO
Hoja14.Cells(j, 4) = TextPRECIO
End If
Next j
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Estimada red, espero me puedan ayudar con esto:
Tengo un formulario desde el cual puedo agregar datos a una hoja de Excel
se compara la celda Nombre "Hoja14.Cells(j, 2)" con el TextCLIENTE. Si cliente NO esta registrado, lo registra y agrega los datos. Pero si el cliente ya esta registrado quiero que lo modifique con los nuevos datos asignados
El código que tengo funciona para registrar un nuevo cliente. EL PROBLEMA SURGE AL MOMENTO DE MODIFICARLO (SI SE MODIFICA) PERO TAMBIEN LO AGREGA.
Este es el código que tengo:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim Final As Integer
Dim Final2 As Integer
For i = 2 To 30000
If Hoja14.Cells(i, 2) = "" Then
Final2 = i
Exit For
Exit Sub
End If
Next
Hoja14.Cells(Final2, 1) = TextFECHA
Hoja14.Cells(Final2, 2) = TextCLIENTE
Hoja14.Cells(Final2, 3) = TextPRODUCTO
Hoja14.Cells(Final2, 4) = TextPRECIO
For j = 2 To 30000
If Hoja14.Cells(j, 2) = "" Then
Final = j - 1
Exit For
End If
Next
For j = 2 To Final
If TextCLIENTE = Hoja14.Cells(j, 2) Then
Hoja14.Cells(j, 1) = TextFECHA
Hoja14.Cells(j, 3) = TextPRODUCTO
Hoja14.Cells(j, 4) = TextPRECIO
End If
Next j
End Sub