Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo una hoja de excel con nombres y más de 2 correos electrónicos en la misma celda
[Hola Te paso la respuesta del generoso Dante Sub Separar_Numeros() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear j = 2 For i = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row datos = Split(h1.Cells(i, "B"), ";")...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Eliminar datos de las celdas en una Hoja Excel VBa
[Hola Te paso la macro actualizada. Ajusta la macro como te indico ( cambiar nombre de la hoja, columna y nombre del textbox) ' Valora la respuesta para finalizar Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer For i = 2 To 3000...
Respuesta
en
Microsoft Excel
a
En excel tengo una hoja de clientes, en otra presupuesto. Cuando pongo el id cliente en presupuesto debe copiar los datos
[Hola Con fórmula lo puedes hacer así: =BUSCARV($A2,Hoja1!$A$2:$D$100,COLUMNA(B:B)+1,FALSO) suponiendo que en A2 pones tu cod cliente de la hoja2 y en b2 copia la formula y arrastras para el resto de las columnas.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Combobox que se arme de acuerdo a las hojas del documento y elegir que hojas no aparezca en ese listado.
[Hola prueba con esto Private Sub ComboBox1_DropButtonClick() 'Por.Dante Amor actual = ComboBox1.Value ComboBox1.Clear For Each h In Sheets Select Case h.Name Case "Hoja1", "Hoja2", "Auxiliar" ' Hojas a excluir de la lista Case Else ComboBox1.AddItem...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Error en una línea de Macro
[Hola Sustituye la línea por esto NombreArchivo = NombreArchivo & "\" & Sheets("Presupuesto").Range("J6") & Range("C6") & Range("D6") Valora para finalizar saludos!
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro copiar celda determinada de diferentes hojas en una hoja Resumen
[Hola Te paso la macro Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Resumen") ' For Each h In Sheets If h.Name <> h1.Name Then u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1 h.Range("W1:X1").Copy h1.Range("B" & u) End If Next ' MsgBox "Fin" End...
Respuesta
en
Microsoft Excel
a
Listbox de seleccion multiple da Error
[Hola Prueba así Private Sub CommandButton1_Click() Dim i As Byte, fila As Integer With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then fila = fila + 1 Range("A" & fila) = .List(i, 0) ' columna 1 End If Next End With End Sub Private...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Validar 1 TextBox y 1 ListBox para que no queden vacíos, si uno tiene datos y el otro no, muestre mensaje de "completar datos"
[Hola Prueba con esto Private Sub CommandButton1_Click() ' If esc_upc.Text = "" Or lista_def.ListIndex = -1 Then MsgBox "VERIFICAR QUE LOS CAMPOS ESTEN LLENOS", vbOKOnly, "CAMPOS VACIOS" esc_upc.SetFocus Exit Sub End If End Sub
Respuesta
en
Seguridad Informática
y en 2 temas más
a
Antivirus me borra el keylogger
El antivirus tiene la opción de excluir programas, averigua la ruta del keylogger y lo agregas al antivirus para no ser revisado. https://www.youtube.com/watch?v=ZSvxExlMZgA
Respuesta
en
Microsoft Excel
y en 1 temas más
a
En un formulario filtrar fechas desde dos textbox y ponerlos en mi listbox
[Hola Te paso un ejemplo del amigo Dante ' Valora la respuesta para finalizar saludos! Private Sub CommandButton1_Click() 'Por Dante 'Act. Adriel 'Filtrar por fecha ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set h1 =...