Preguntas esperando respuesta
Actividad pública reciente
Ha valorado "Excelente" la respuesta
Buscar valores en columnas y pegar en celda contigua
Esta es la macro que solicitas. Ajusta la col y la primer fila de datos que en mi ejemplo es A2. Sub buscaTexto() 'x Elsamatilde 'recorre col A a partir de fila 2 hasta la 1er celda vacía. [A2].Select While ActiveCell <> "" If InStr(1,...
Ha valorado "Excelente" la respuesta
De excel a word como imagen
[Hola Mira esta forma: Sub CopiarPegar() Dim Hoja As Worksheet Dim MiRango As Range Dim MiImagen As Chart Dim ruta$ Dim MiappWord As Object Let ruta = ThisWorkbook.Path & "\grafico.bmp" Set MiappWord = CreateObject("Word.Application")...
Ha empezado a seguir a 
calvuch
calvuch
Ha preguntado en el tema en
Microsoft Excel
Obtener datos de ms project
Quisiera obtener los datos de un archivo de Ms project (extensión *. Mpp). En mi pc no tengo instalado project y quisiera saber si se pueden obtener los datos de las columnas fecha y actividades de project sin(tomar el archivo y sacarle los datos)....
Sin respuestas
Ha valorado "Excelente" la respuesta
Concatenar con datos repetidos o condición en celda
Sigo sin entender, ¿realmente qué dato tienes? Tienes una "n" y una "n1" o las 2 son "n" Sería más fácil si utilizas los datos reales que tienes en la hoja, sería más fácil de explicar para ti y más fácil de entender para mí. Utiliza una imagen para...
Ha valorado "Excelente" la respuesta
Concatenar cada celda de rango con macros en excel
Te anexo la macro Sub concatenar() 'Por.Dante Amor For i = 3 To Range("D" & Rows.Count).End(xlUp).Row cad = cad & Cells(i, "D") & "; " Next If cad <> "" Then Range("D2") = Left(cad, Len(cad) - 2) End If End Sub 'S aludos. Dante Amor. Recuerda valorar...
Ha valorado "Excelente" la respuesta
Copiar información de celda separada por comas
Te anexo una macro para hacer la copia Sub Separar() 'Por.Dante Amor datos = Split(Range("D2"), ",") j = 3 Do While Cells(j, "E") <> "" Cells(j, "E") = "" j = j + 1 Loop j = 3 For i = LBound(datos) To UBound(datos) Cells(j, "E") =...
Ha valorado "Excelente" la respuesta
Correr procedimiento si valor en rango (celda) es = 0
H o l a te paso la macro Sub verifica() '//Por Adriel Set h1 = Sheets("Hoja1") ' cont = 0 h1.Columns("D").Interior.ColorIndex = xlNone For i = 2 To h1.Range("D" & Rows.Count).End(xlUp).Row If h1.Cells(i, "D") = 0 Then h1.Cells(i,...
Ha valorado "Excelente" la respuesta
List box seleccion multiple excel vba
La primera parte, pasar los productos seleccionados a la celda "D3": Private Sub CommandButton1_Click() '--- ' Por.Dante Amor '--- ' cad = "" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then cad = cad & ListBox1.List(i) & ", " End If...
