Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito saber como lograr que una fila de Excel se copie completa en otra pestaña de la misma hoja si una celda tiene un valor
[Hola Te paso la macro Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' fila_datos = 3 'fila de datos del cliente u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Rows(fila_datos).Copy h2.Range("A" & u) ' MsgBox...
Respuesta
en
Visual Basic
y en 2 temas más
a
Como refrescar el textbox donde muestro el ultimo registro
Te paso la macro Sub Macro_copiar() ' ' Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 2 Then u = 2 h2.Cells(u, "A") = h1.[A4] h2.Cells(u, "B") = h1.[B7] h2.Cells(u, "C") =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Poner un condicional de valor a una celda sin necesidad de un botón de comando
[Hola Pero cual es la celda y las condiciones
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo un macro que me crea una copia de una hoja de exel, pero quiero que en la copia no me aparezca el boton de comando
[Hola Prueba con esta línea ActiveSheet. Shapes(1).Delete o pon tu macro para revisar la rutina
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Multiplicar 2 textbox de forma automática
[Hola prueba así Private Sub TextBox1_Change() TextBox3 = Val(TextBox1) * Val(TextBox2) End Sub Private Sub TextBox2_Change() TextBox3 = Val(TextBox1) * Val(TextBox2) End Sub
Respuesta
en
Visual Basic
y en 2 temas más
a
Como hago para que de un código que coloque se llenen los otros campos de la userform ?
[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo Private Sub CommandButton1_Click() ' 'Por Adriel Ortiz ' Set h = Sheets("BASE DE DATOS") Set r = h.Columns("A") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then f =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como colocar la fecha de hoy en un textbox
[Hola pon en el evento activate del formulario Private Sub UserForm_Activate() TextBox1 = Date End Sub valora para finalizar saludos!
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 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!