calvuch

en vez de asignarle ="" prueba con asignarle =Empty O limpia la celda con clear [A1].Clear

Prueba ahora Sub CLEANINC() ' ' CLEANINC Macro ' Macro grabada el 24/11/2010 por USER' ' Dim respuesta As Integer respuesta = MsgBox("¿DESEAS CONTINUAR?", vbQuestion + vbYesNoCancel, "COORDINACION DE TRANSPORTE") If respuesta = 6 Then MsgBox...

Esto imprime El rango entre d8:h16 Sub imprime() Range("D8:H16").Select ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)" End Sub Puedes adaptarlo a tus botones En cada uno insertas este sub y modificas el rango que te interesa que se imprima

Prueba esto Inserta un nuevo modulo a tu proyecto y pega esto: Option Explicit Dim RI As Integer Sub recorre() Dim i As Integer Dim cad As String Dim tc As Integer Dim t As Integer Application.ScreenUpdating = False cad = Replace(Selection.Address,...

Prueba con esto: Private Sub CommandButton1_Click() ifila = ActiveCell.Select ActiveCell.Value = Form1.TextBox1.Text If Trim(TextBox1) = Empty Then MsgBox "No se ha ingresado Nueva Segmentacion", vbInformation TextBox1.SetFocus: Exit Sub Else ifila =...

Con este sub creas hojas dándole el nombre de lo que tengas en columna A de hoja1 Tal vez lo puedas adaptar a tu proyecto Sub crea_hoja() Dim i As Integer Worksheets.Item(1).Select [a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)" For i = 1 To...

En B2 pon esto =extrae(a2;1;encontrar("-";a2;1)-1)

Pruba esto Private Sub Cmdguardar_Click() Sheets("hoja1").Select Range("C11").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop If Trim(Txtnombre) = "" Or Trim(Txtpapellido) = "" Or Trim(Txtsapellido) = "" Then...

Puse un checkbox en la hoja 1 y lo compruebo así Hoja1.CheckBox1.Value o tambien asi: Worksheets("Hoja1").CheckBox1.Value

Prueba Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$3" Then [a6].Select End Sub Si digitas en la celda a3 y presionas enter te envía a A6, esto como se ve en el ejemplo debes ponerlo en el evento Worksheet_Change de la...