jerryeagle

Pues si lo único que quieres es guardar la ruta, puedes hacerlo así: 'Muestra el dialogo elegir carpeta Dim Ruta As String With Application.FileDialog(msoFileDialogFolderPicker) .Show Ruta = .InitialFileName End With Y asi tienes la Ruta guardada en...

Esta página es para ayudar, se supone que el usuario expone su duda teniendo cierto conocimiento de lo que quiere hacer y los expertos proporcionan la ayuda hasta cierto punto, es decir, no creo que ningún experto te "haga toda la tarea"... y menos...

Debes hacer un bucle que recorra cada celda del rango que quieres, checa For Each c In Range("B2:C2") If Not IsNumeric(c) Then MsgBox "No es numerico" c.Select End If Next O como en tu caso son solo dos celdas, puedes modificar un poco tu macro asi:...

En el evento Userform_Initialize pon esto: Textbox7 = Range("C9") Así al Iniciar el Userform, tomará el valor que este en la celda C9

Es muy sencillo, checa: txt = "select * from conVIAJE_COMISION where fecha like '" & dia & "*'" & _ " AND movil Like '" & mov & "*'" En la red hay muchos tutoriales de SQL, solo "googlea" un poco :D

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Userform1.Show 'Y en el Código de algun Boton cerrar o aceptar de tu userform, incluye esto: ThisWorkbook.Save End Sub

Checa este código, espero estar bien, no lo cheque en Excel Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select For r = 0 to Combobox1.Listcount -1 if Combobox1.Items(r).Value = Activecell then Goto SiguienteFila end If ComboBox1.AddItem...

Checa este Código y lo acomodas a tus necesidades: Sub VerificaExistente(ByVal DatoBuscar as String) Set Buscar = Sheets("Tu hoja2").Cells.Find(DatoBuscar) If not Buscar is Nothing then Msgbox "Ya existe el Registro " & DatoBuscar, vbInformation Else...

Suponiendo que tus datos comienzan en la fila 1 y tienen encabezados (suoniendo que sea una tabla) Dim FilaFin, ColFin as Integer 'Guarda el No. de la Ultima Fila con Datos FilaFin = Range("A65536").End(xlUp).Row 'Guarda el No. de la Ultima Columna...

Checa este código y lo adaptas With Me.DataGridView1 .Columns.Add("Tipo de Telefono", "Tipo de Telefono") If Not .Rows.Count < 0 Then For R As Integer = 0 To .Rows.Count - 1 Select Case .Rows(R).Cells(2).Value Case Is = 1 : .Rows(R).Cells(3).Value =...