Luis_P

Luis_P

 99,8K puntos  Chile @luis_p desde - visto

Preguntas esperando respuesta

Actividad pública reciente

Ha empezado a seguir el tema
Ha preguntado en el tema en

Pasar gráfico excel a un marcador en word

Buen dia alguien sabe como pasar un grafico excel a un punto especifico de un documento word ? Ejemplo: hoja1 de excel contiene 3 graficos grap1 grap2 grap3 necesito pasar ( copiar como imagen) a un documento word en donde se encuentra un marcador...
Sin respuestas
Ha respondido en

Reloj en formulario

Seria asi: Private Sub UserForm_Initialize() Me.Caption = Date & "|" & Time End Sub
Ha respondido en

Apoyo con código para Excel

Prueba esto: Los datos a evaluar estan en col A La salida de datos es en col B Sub extra() Dim R As Range Dim f As Long Dim cadena As String Dim i As Integer Dim c As Integer '4c7569735f50 f = Application.WorksheetFunction.CountA(Range("A:A")) If f =...
Ha respondido en

Realizar referencia a un libro que cambia de nombre día a día

Usa una celda como referencia Workbooks(sheets(1). Range("A1")). Activate Asi solo pones el nombre del libro en la celda a1 del libro1 y ya esta.
Ha respondido en

Contar números en excel

Una forma seria Si la lista de numeros esta en columna A =EXTRAE(A1;LARGO(A1);1) Asi extraes el ultimo digito del numero, copias hacia abajo y luego sencillamente utilizas un contar. Si sobre ese rango indicandole como criterio el numero que te...
Ha respondido en

Como hacer que un registro se inserte n veces a una hoja mediante formulario en excel 2007 con macro

Una idea: Private Sub CommandButton1_Click() Sheets("Registro").Select Dim x As Integer Application.Goto reference = "R1C1" Selection.End(xlDown).Select ActiveCell.Offset.Range("A1").Select x = ActiveCell.Value x = x + 1 For i = 0 To n ' numero dado...
Ha respondido en

Realizar selección hasta el valor de una variable x

Range("S65536").Select ' ultima fila de col s Selection.End(xlUp).Select ' ubica la ultima con contenido contá = Selection.Row ' identifica el numero de fila Range("A11:AW" & contá).Select ' seleccionas el rango a copiar
Ha respondido en

Duda con mshflexgrid

Acá esta: Private Sub Command1_Click() numero = CInt(InputBox("Introducir número: ")) MSHFlexGrid1.Rows = numero + 2 ' este era el problema Dim j As Integer j = 1 For i = 0 To numero cuadrado = i ^ 2 cubo = i ^ 3 MSHFlexGrid1.TextMatrix(j, 0) = i...
Ha respondido en

Hacer un informe copiando y pegando datos.

Ok entonces: En un modulo ( no de clase) pones este macro: Sub informe() Dim f As Long Dim filas As Long Dim i As Integer '4c7569735f50 For i = 3 To 20 f = Application.WorksheetFunction.CountA(Sheets(i).Range("C410:c65536")) filas =...
Ha respondido en

Concatenar textos relativos a un código

Lo que necesitas es algo asi como un Concatenar. Si que en excel... al menos en la version 2007 "no existe". Asi que lo que necesitas es crear una funcion personal.. para esto debes insertar un modulo ( no de clase) desde el editor de vba (alt +...
Ha respondido en

Imprimir imagen de PictureBox

Las dimensiones de la imagen se las das al picture... para sacar a la impresora local Solo PrintOut picture1 O bien si pasaste la imagen a un objeto imagen PrintOut imagen
Ha respondido en

Debo hacer una macro que busque una fecha en una columna y copie un dato de otra columna de la misma

Acá tienes: Sub buscar(fecha As Date) Dim r As Range Dim filas As Long filas = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) If filas = 0 Then Exit Sub '4c7569735f50 For Each r In Sheets(1).Range("A:A") If fecha = r Then...
Ha respondido en

Buscar id del producto en excel vba

Prueba con esto private sub codig() [A1]=application.ProductCode end sub Eso te pasa la info a la celda a1
Ha respondido en

Programar en evento change

Cambia de evento y utiliza el enter como disparador Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Select * from table where …. If recorset > 0 Then Muestre datos Else Mgsbox (“no hay datos”) End If End If End Sub