Respuesta
en
Microsoft Excel
y en 2 temas más
a
Llenar textbox desde varias celdas con condición.
H o l a : Te anexo un ejemplo, de lo que supongo quieres lograr: Private Sub LA39_Change() 'Act.Por.Dante Amor TextBox6 = "" Select Case LA39 Case "Enero" If Range("f7") = 1 Then c1 = "A7" c2 = "A8" Else c1 = "B7" c2 = "B8" End If Case "Febrero" If...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Sumar num de dos celdas siendo una el número nuevo y la otra es el resultado acumulado
H o la: Te anexo la macro y las instrucciones para poner la macro. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor celda1 = "A1" celda2 = "A2" If Not Intersect(Target, Range(celda1)) Is Nothing Then If Target.Count > 1 Then Exit...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo perfeccionar macro de text mining en excel?
Te anexo la macro actualizada Sub SepararTexto() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.Clear co2 = "Q" 'columna destino resto h1.Range("A1,J1,K1,N1,O1,X1").Copy h2.[A1]...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Uso de formulas aplicando RC[ ] etc. En la Excel VBA
La fórmula se empieza a poner en la h2 en la celda B3 =SUMAR.SI(Hoja1!C$3:C$9,A3,Hoja1!Z$3:Z$9) De ahí podemos deducir lo siguiente: El primer apostrofe que se pone es para en caso de que el nombre de la hoja tenga espacios: =SUMAR.SI('resumen de...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Aplicación desarrollada por ud donde comunica excel con outlook
Prueba con la siguiente macro actualizada: Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0) dam.To = Range("B" & i).Value...
Respuesta
en
VBA
y en 2 temas más
a
Error en código contar blancos VBA para excel
H o la: Si la hoja activa es la "REGISTRO", entonces no es necesario hacer mención de la hoja y puede ser así: Sub macro() Dim UR As Long Dim nvacio As Long UR = [A1048576].End(xlUp).Row nvacio = WorksheetFunction.CountBlank(Range(Cells(2, 1),...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Setfocus a label dentro de formulario.
H o l a: Un label no puede aceptar el enfoque (SetFocus), VBA te lo marca como error: Podemos encontrar en cuál página se encuentra el label, y entonces seleccionar la página que contiene el label. Después de capturar el nombre del label en el...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro generar pdf y mandar por mail
Revisa lo siguiente: Entra al menú de VBA, Herramientas, Referencias y busca si tienes una Referencia con la palabra "Falta", si es así, desmarca la casilla y presiona Aceptar. También en el mismo menú de VBA, Herramientas, Referencias, busca la que...
Respuesta
en
Visual Basic
y en 1 temas más
a
Como limpiar los valores de un ComboBox3 sin salir del formulario, cuyos valores están restringidos a los valores elegidos en lo
Tienes que agregar la instrucción Clear Simplifiqué un poco el código con la instrucción Select Case Private Sub UserForm_Initialize() With ComboBox1 . AddItem "1" . AddItem "2" . AddItem "3" . AddItem "4" . AddItem "5" End With With ComboBox2 ....
Respuesta
en
Microsoft Excel
y en 3 temas más
a
¿Poner columnas una debajo de otra con macro?
Te anexo la macro Sub CopiarColumnas() 'Por.Dante Amor Columns("A").ClearContents u2 = 1 For i = Columns("B").Column To Columns("UG").Column u1 = Cells(Rows.Count, i).End(xlUp).Row Range(Cells(1, i), Cells(u1, i)).Copy Range("A" & u2) u2 =...