Skip to main content
se añadieron 22 caracteres en el cuerpo
Origen Enlace
Marcos
  • 35.7k
  • 7
  • 36
  • 70

Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String

Private Sub Btn_Guardar_Click()
    Dim wsForm As Worksheet
    Dim wsDB As Worksheet
    Dim lastRowDB As Long
    Dim i As Long
    Dim validData As Boolean
    Dim errorMsg As String
    
    Set wsForm = ThisWorkbook.Sheets("Form")
    Set wsDB = ThisWorkbook.Sheets("DB")
    
    validData = True
    errorMsg = "Error: Las siguientes filas tienen datos incompletos:" & vbCrLf
    
    ' Verificar que la columna G esté correctamente completada
    For i = 12 To 46
        If wsForm.Cells(i, 6).Value = False And wsForm.Cells(i, 7).Value = "" Then
            validData = False
            errorMsg = errorMsg & "Fila " & i & ": Columna G debe tener un número si F es FALSO" & vbCrLf
        End If
    Next i

    
    If Not validData Then
        MsgBox errorMsg, vbExclamation, "Datos Incompletos"
        Exit Sub
    End If
    
    ' Encontrar la última fila vacía en la hoja "DB"
    lastRowDB = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1
    
    ' Copiar valores de la Tabla_Formulario en la hoja "Form" a la hoja "DB"
    For i = 12 To 46
        If wsForm.Cells(i, 3).Value <> "" Or wsForm.Cells(i, 4).Value <> "" Or wsForm.Cells(i, 5).Value <> "" Then
            wsDB.Cells(lastRowDB, 1).Value = wsForm.Range("E4").Value ' Columna A
            wsDB.Cells(lastRowDB, 2).Value = wsForm.Range("E5").Value ' Columna B
            wsDB.Cells(lastRowDB, 3).Value = wsForm.Range("E6").Value ' Columna C
            wsDB.Cells(lastRowDB, 4).Value = wsForm.Cells(i, 3).Value ' Columna D
            wsDB.Cells(lastRowDB, 5).Value = wsForm.Cells(i, 7).Value ' Columna E
            wsDB.Cells(lastRowDB, 7).Value = wsForm.Cells(i, 5).Value ' Columna F
            
            lastRowDB = lastRowDB + 1
        End If
    Next i
    
    ' Limpiar los datos en la hoja "Form"
    wsForm.Range("F12:F46").Value = False ' Establece FALSE en el rango F12:F46
    
    ' Limpiar otras celdas y actualizar la fecha
    wsForm.Range("E5:E6").ClearContents
    wsForm.Range("E4").Value = Date
    
    ' Borrar los valores existentes en el rango G12:G46 antes de aplicar la fórmula
    wsForm.Range("G12:G46").ClearContents
    
    
    ' Mostrar mensaje de éxito
    MsgBox "Datos copiados con éxito", vbInformation, "Proceso Completado"
    
    ' Establecer la fórmula en el rango G12:G46
    For i = 12 To 46
        wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")"
    Next i

    ' Mostrar mensaje de éxito
    MsgBox "FIN", vbInformation, "Proceso Completado"
End Sub 

End Sub

Todo el código funciona excepto la última parte, ' Establecer la fórmula en el rango G12:G46 For i = 12 To 46 wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")" Next i y

     ' Establecer la fórmula en el rango G12:G46
    For i = 12 To 46
        wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")"
    Next i

y tampoco se muestra el mensaje de FIN, Pero no me muestra ningún mensaje de error o depuración. simplemente finaliza la ejecución, todo lo demás lo hace.

Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String

Set wsForm = ThisWorkbook.Sheets("Form")
Set wsDB = ThisWorkbook.Sheets("DB")

validData = True
errorMsg = "Error: Las siguientes filas tienen datos incompletos:" & vbCrLf

' Verificar que la columna G esté correctamente completada
For i = 12 To 46
    If wsForm.Cells(i, 6).Value = False And wsForm.Cells(i, 7).Value = "" Then
        validData = False
        errorMsg = errorMsg & "Fila " & i & ": Columna G debe tener un número si F es FALSO" & vbCrLf
    End If
Next i


If Not validData Then
    MsgBox errorMsg, vbExclamation, "Datos Incompletos"
    Exit Sub
End If

' Encontrar la última fila vacía en la hoja "DB"
lastRowDB = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1

' Copiar valores de la Tabla_Formulario en la hoja "Form" a la hoja "DB"
For i = 12 To 46
    If wsForm.Cells(i, 3).Value <> "" Or wsForm.Cells(i, 4).Value <> "" Or wsForm.Cells(i, 5).Value <> "" Then
        wsDB.Cells(lastRowDB, 1).Value = wsForm.Range("E4").Value ' Columna A
        wsDB.Cells(lastRowDB, 2).Value = wsForm.Range("E5").Value ' Columna B
        wsDB.Cells(lastRowDB, 3).Value = wsForm.Range("E6").Value ' Columna C
        wsDB.Cells(lastRowDB, 4).Value = wsForm.Cells(i, 3).Value ' Columna D
        wsDB.Cells(lastRowDB, 5).Value = wsForm.Cells(i, 7).Value ' Columna E
        wsDB.Cells(lastRowDB, 7).Value = wsForm.Cells(i, 5).Value ' Columna F
        
        lastRowDB = lastRowDB + 1
    End If
Next i

' Limpiar los datos en la hoja "Form"
wsForm.Range("F12:F46").Value = False ' Establece FALSE en el rango F12:F46

' Limpiar otras celdas y actualizar la fecha
wsForm.Range("E5:E6").ClearContents
wsForm.Range("E4").Value = Date

' Borrar los valores existentes en el rango G12:G46 antes de aplicar la fórmula
wsForm.Range("G12:G46").ClearContents


' Mostrar mensaje de éxito
MsgBox "Datos copiados con éxito", vbInformation, "Proceso Completado"

' Establecer la fórmula en el rango G12:G46
For i = 12 To 46
    wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")"
Next i

' Mostrar mensaje de éxito
MsgBox "FIN", vbInformation, "Proceso Completado"

End Sub

Todo el código funciona excepto la última parte, ' Establecer la fórmula en el rango G12:G46 For i = 12 To 46 wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")" Next i y tampoco se muestra el mensaje de FIN, Pero no me muestra ningún mensaje de error o depuración. simplemente finaliza la ejecución, todo lo demás lo hace.

Private Sub Btn_Guardar_Click()
    Dim wsForm As Worksheet
    Dim wsDB As Worksheet
    Dim lastRowDB As Long
    Dim i As Long
    Dim validData As Boolean
    Dim errorMsg As String
    
    Set wsForm = ThisWorkbook.Sheets("Form")
    Set wsDB = ThisWorkbook.Sheets("DB")
    
    validData = True
    errorMsg = "Error: Las siguientes filas tienen datos incompletos:" & vbCrLf
    
    ' Verificar que la columna G esté correctamente completada
    For i = 12 To 46
        If wsForm.Cells(i, 6).Value = False And wsForm.Cells(i, 7).Value = "" Then
            validData = False
            errorMsg = errorMsg & "Fila " & i & ": Columna G debe tener un número si F es FALSO" & vbCrLf
        End If
    Next i

    
    If Not validData Then
        MsgBox errorMsg, vbExclamation, "Datos Incompletos"
        Exit Sub
    End If
    
    ' Encontrar la última fila vacía en la hoja "DB"
    lastRowDB = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1
    
    ' Copiar valores de la Tabla_Formulario en la hoja "Form" a la hoja "DB"
    For i = 12 To 46
        If wsForm.Cells(i, 3).Value <> "" Or wsForm.Cells(i, 4).Value <> "" Or wsForm.Cells(i, 5).Value <> "" Then
            wsDB.Cells(lastRowDB, 1).Value = wsForm.Range("E4").Value ' Columna A
            wsDB.Cells(lastRowDB, 2).Value = wsForm.Range("E5").Value ' Columna B
            wsDB.Cells(lastRowDB, 3).Value = wsForm.Range("E6").Value ' Columna C
            wsDB.Cells(lastRowDB, 4).Value = wsForm.Cells(i, 3).Value ' Columna D
            wsDB.Cells(lastRowDB, 5).Value = wsForm.Cells(i, 7).Value ' Columna E
            wsDB.Cells(lastRowDB, 7).Value = wsForm.Cells(i, 5).Value ' Columna F
            
            lastRowDB = lastRowDB + 1
        End If
    Next i
    
    ' Limpiar los datos en la hoja "Form"
    wsForm.Range("F12:F46").Value = False ' Establece FALSE en el rango F12:F46
    
    ' Limpiar otras celdas y actualizar la fecha
    wsForm.Range("E5:E6").ClearContents
    wsForm.Range("E4").Value = Date
    
    ' Borrar los valores existentes en el rango G12:G46 antes de aplicar la fórmula
    wsForm.Range("G12:G46").ClearContents
    
    
    ' Mostrar mensaje de éxito
    MsgBox "Datos copiados con éxito", vbInformation, "Proceso Completado"
    
    ' Establecer la fórmula en el rango G12:G46
    For i = 12 To 46
        wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")"
    Next i

    ' Mostrar mensaje de éxito
    MsgBox "FIN", vbInformation, "Proceso Completado"
End Sub 

Todo el código funciona excepto la última parte,

     ' Establecer la fórmula en el rango G12:G46
    For i = 12 To 46
        wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")"
    Next i

y tampoco se muestra el mensaje de FIN, Pero no me muestra ningún mensaje de error o depuración. simplemente finaliza la ejecución, todo lo demás lo hace.

se añadieron 46 caracteres en el cuerpo
Origen Enlace
Laura
  • 11
  • 4

comparto mi código, el error está al final

Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String

Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String

comparto mi código, el error está al final

Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String

Origen Enlace
Laura
  • 11
  • 4

No funciona mi código VBA

Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String

Set wsForm = ThisWorkbook.Sheets("Form")
Set wsDB = ThisWorkbook.Sheets("DB")

validData = True
errorMsg = "Error: Las siguientes filas tienen datos incompletos:" & vbCrLf

' Verificar que la columna G esté correctamente completada
For i = 12 To 46
    If wsForm.Cells(i, 6).Value = False And wsForm.Cells(i, 7).Value = "" Then
        validData = False
        errorMsg = errorMsg & "Fila " & i & ": Columna G debe tener un número si F es FALSO" & vbCrLf
    End If
Next i


If Not validData Then
    MsgBox errorMsg, vbExclamation, "Datos Incompletos"
    Exit Sub
End If

' Encontrar la última fila vacía en la hoja "DB"
lastRowDB = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1

' Copiar valores de la Tabla_Formulario en la hoja "Form" a la hoja "DB"
For i = 12 To 46
    If wsForm.Cells(i, 3).Value <> "" Or wsForm.Cells(i, 4).Value <> "" Or wsForm.Cells(i, 5).Value <> "" Then
        wsDB.Cells(lastRowDB, 1).Value = wsForm.Range("E4").Value ' Columna A
        wsDB.Cells(lastRowDB, 2).Value = wsForm.Range("E5").Value ' Columna B
        wsDB.Cells(lastRowDB, 3).Value = wsForm.Range("E6").Value ' Columna C
        wsDB.Cells(lastRowDB, 4).Value = wsForm.Cells(i, 3).Value ' Columna D
        wsDB.Cells(lastRowDB, 5).Value = wsForm.Cells(i, 7).Value ' Columna E
        wsDB.Cells(lastRowDB, 7).Value = wsForm.Cells(i, 5).Value ' Columna F
        
        lastRowDB = lastRowDB + 1
    End If
Next i

' Limpiar los datos en la hoja "Form"
wsForm.Range("F12:F46").Value = False ' Establece FALSE en el rango F12:F46

' Limpiar otras celdas y actualizar la fecha
wsForm.Range("E5:E6").ClearContents
wsForm.Range("E4").Value = Date

' Borrar los valores existentes en el rango G12:G46 antes de aplicar la fórmula
wsForm.Range("G12:G46").ClearContents


' Mostrar mensaje de éxito
MsgBox "Datos copiados con éxito", vbInformation, "Proceso Completado"

' Establecer la fórmula en el rango G12:G46
For i = 12 To 46
    wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")"
Next i

' Mostrar mensaje de éxito
MsgBox "FIN", vbInformation, "Proceso Completado"

End Sub

Todo el código funciona excepto la última parte, ' Establecer la fórmula en el rango G12:G46 For i = 12 To 46 wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")" Next i y tampoco se muestra el mensaje de FIN, Pero no me muestra ningún mensaje de error o depuración. simplemente finaliza la ejecución, todo lo demás lo hace.