Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Estimados, muchas gracias por su ayuda, estoy realizando una planilla para ingresar clientes y llenar una base de datos, pero quiero saber como poder hacer para que si el cliente ya existe me muestre sus datos y si los modifico se modifiquen en la base de datos, pero si no está, que me permita llenar su información.
Hasta ahora solo he hecho:
Sub Registro()
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String
'
strTitulo = "Registrar Datos"
'
Continuar = MsgBox("Grabar datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
Set TransRowRng = ThisWorkbook.Worksheets("Datos").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("Datos")
.Cells(NewRow, 1).Value = ThisWorkbook.Sheets(1).Range("B3")
.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("C3")
.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("D3")
End With
'
Limpiar = MsgBox("Deseas limpiar los campos de la captura?", vbYesNo, strTitulo)
If Limpiar = vbYes Then
With ActiveWorkbook.Sheets(1)
.Range("B3").ClearContents
.Range("C3").ClearContents
.Range("D3").ClearContents
End With
Else
End If
'
End Sub
De antemano muchas gracias por su ayuda