Vlookup Error

Hola!

Estoy tratando de hacer lo siguiente: quisiera que seleccionando la informacion que tengo en una hoja de calculo de mi libro de excel copiara la data y creara un grafico en base a esa informacion en otro libro de excel.
El codigo que tengo es el siguiente, el cual no me tira error pero me crea el libro de excel nuevo sin la informacion. Sabria alguien porque es esto?

Code:

Private Sub CommandButton1_Click()
  Dim oRangeSelected As Range
    On Error Resume Next
    Set oRangeSelected = Application.InputBox("Please select a range of cells!", _
                                              "SelectARAnge Demo", Selection.Address, , , , , 8)
                                            
  Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange
objRange.Select

Set colCharts = objExcel.Charts
colCharts.Add

Set objChart = colCharts(1)
objChart.Activate

objChart.ChartType = 65

objChart.PlotArea.Fill.PresetGradient 1, 1, 7

objChart.SeriesCollection(1).Border.Weight = -4138
objChart.SeriesCollection(2).Border.Weight = -4138
objChart.SeriesCollection(3).Border.Weight = -4138

objChart.SeriesCollection(1).Border.ColorIndex = 2
objChart.SeriesCollection(1).MarkerBackgroundColorIndex = 2

objChart.SeriesCollection(2).MarkerForegroundColorIndex = 1
objChart.SeriesCollection(3).MarkerForegroundColorIndex = 1

objChart.HasTitle = True
objChart.ChartTitle.Text = ""
objChart.ChartTitle.Font.Size = 18

objChart.ChartArea.Fill.Visible = True
objChart.ChartArea.Fill.PresetTextured 15

objChart.ChartArea.Border.LineStyle = 1

objChart.HasLegend = True
objChart.Legend.Shadow = True

    If oRangeSelected Is Nothing Then
        MsgBox "It appears as if you pressed cancel!"
    Else
        MsgBox "You selected: " & oRangeSelected.Address(External:=True)
    End If
End Sub

Hola a todos de nuevo.

Es posible que parezca un poco pesado pero por ahora nadie me ayuda a
resolver mi problema, y seguro que es una tonteria.

El tema es que cuando en una pagina web , un enlace apunta a un fichero, el
cual reconoce mi pc porque tengo la apicacionque puede abrirlo y trabajar
con el, en vez de abrirlo directamente su aplaicacion, va y lo abre el
explorer con las limitaciones que ello lleva consigo...

Y no es un problema de que tenga mal asociada la extension, porque los
ficheros se abren desde su aplicacion pero cuando vas a ellos a traves del
explorador de archivos, pero no es asi cuando esta enlazado desde una pagina
web.....

Poe favor que alguien me ayude porqu estoy ya desesperado.

Gracias

Algun codigo que sea efectivo, para extraer datos de rango variable de otro libro a mi libro activo a otro rango de mi libro activo empezando por B4.

Lo he intentado grabando la macro, recreando los pasos, y cuando quiero hacerlo variable no trabaja bien.

Saludos!!!!

Hola a todos.
tengo una gran duda ayudenme por favor.
me mandaron un libro de excel y quise hacer una copia de la hoja activa en otro libro y no pude, tambien la trate de hacer en el mismo libro y nada. no sale ningun mensaje al contrario parece que hace la copia pero no me aparece ninguna hoja.
la version que utilizo es 2003
revise el archivo y no tinene macros.
si puedo hacer copias en otros libros.
existe alguna forma para bloquear las copias de las hojas?



gracias anticipadas.

buenas noches
estoy exportando un archivo en excel 2007 por medio de java pero cuando exporto los ceros a la izquierda el excel no los reconoce porque esta en formato general como hago para que me fijo el formato texto.

Hola me pueden explicar por q no funciona esto: ?

Range("e1").Formula = "=SI(BUSCARV($C2;$C:$D;2;0)=D2;BUSCARV(C2;$C:$D;2;1);
BUSCARV($C2;$C:$D;2;0))"

La formula en la hoja funciona correctamente, pero quiero ponerla desde VB.
Gracias

Daniel

Que tal todos:

Necesito ayuda con una macro, tengo parte del diseno pero no funciona.

Explico:

Dicha macro borra un especifico archivo (diferente al activo) C:\Mis Documentos\Archivo1.xls.


Estoy usando el comando KILL pero al crear la variable que define el nombre de archivo no lo reconoce


El reto es que el nombre del archivo se genera desde una celda en un archivo deiferente al que necesito borrar A1= Archivo1.xls.


Sub BorrarArchivo()

Dim FileName as String

FileName = range("A1").Value


Kill "FileName"

End Sub

El evento se activa con un boton


Cualquier ayuda sera muy apreciada....

Mario

Buenos dias,

Tengo el siguiente problema con una sola maquina y no se a que se deba

Tengo un libro de excel que cuenta con un menu, este menu al ejecutar una opcion abre una consulta a una base de datos oracle, dicha consulta esta en un archivo .SQL

Ahora esta consulta hace que en otro libro de excel se generen los datos ya formateados de la consulta pero al revisar bien la informacion que me muestra me he percatado que me esta separando los enteros en una celda y los decimales en otra haciendo que la informacion se vea mal.

Lo mas raro de todo es que solo me ocurre en una maquina en el resto de maquinas donde estan instaladas los mismos archivos no.

He revisado configuracion regional, la consulta, reinstale el office y aun no hay solucion, espero q me puedan orientar en que es lo q esta ocurriendo.

La maquina en cuestion usa Win Vista y Office 2007, el resto de maquinas usan win vista y win xp

Buenas a todos y gracias por este foro de ayuda.
Tengo el siguiente problema , a ver si desde este foro se puede prestar la ayuda necesaria
Tengo una serie de valores en h , m y ss y quiero que de esos valores desparezcan las letras h , el valor ' y el valor " y me queden solo los numeros y en diferentes columnas , una para las horas , otra para los minutos y otra para los segundos. Yo consigo hacerlo cuando la cantidad es completa es decir 1h 55' 0" (y no son mas de 9h) pero cuando no tiene horas me da error la formula o cuando son solo segundos .
Creo que es un lio tal cual lo he explicado espero que se entienda con el ejemplo :


T. Efect. Horas Min Seg 1h 55' 14" 1 55 14 56' 3" 0 56 3 14h 2' 26" 14 2 26 35" 0 0 35 3" 0 0 3 1h 0' 36" 1 0 36

Tengo un libro ( o al menos eso quiero hacer ) facturas , productos , cliente. y quiero que se despliegue la informacion nombre de cliente en una cellda algo asi =IF(ISBLANK(C13)," ",VLOOKUP(C13,Cliente,MATCH("Denominacion Cliente",Clientes!1:1,0),FALSE))
No se talves me falta un enlace entre las hojas o esta mal la formula si alguien me pudiera ayudar se lo agradeceria muchas gracias de antemano.

Hola a todos.

hice este codigo. la verdad no soy bueno en esto pero lo intento.
quiero copiar un rango y peganlo. hasta hay lo hace bien. el problema es cuando quiero pegarlo en otra hoja "me marca un error" o quiero copiar los datos de otro libro "no puedo pasar a otro libro", como puedo hacer esto.
espero me puedan ayudar.

Private Sub Input_Nvo()
Dim R1 As Range
Dim R2 As Range

Set R1 = Application.InputBox("Selecciona el Rango a Copiar. " & Chr(10) & Chr(10) & " WID - Comentarios", "Copiar", Type:=8)
R1.Select
Set R2 = Application.InputBox("Selecciona la celda Destino. " & Chr(10) & " WID - Comentarios", "Destino", Type:=8)
R1.Copy
ActiveSheet.Paste Destination:=R2
R2.Select

Application.CutCopyMode = False

End Sub

Gracias anticipadas. y saludos.

Hola,

Supongamos el siguiente ejemplo:

Col. A Col. B

aa 1

bb 4

cc 3

aa 8

bb 9


Estoy buscando una formula que cuando escriba algun valor de la columna A, me devuelva el ultimo valor ingresado en la columna B para ese valor.
O sea para los siguientes valores escritos en la columna C, el resultado en la coumna A deberia ser:

Col C Col D

bb 9

aa 8

cc 3

aa 8

bb 9


Gracias!

Hola que tal
Estoy tratando de hacer una macro que elimine filas completas atraves de una condicion, solo que en mi lista existen filas vacias, y no me doy idea de como hacer para que solo borre las filas que no necesito, les mostrare un ejemplo de como esta mi informacion:

Tipo Cantidad Precio ENB 456900 809777 ENB 567 5000 KG 34 456 PZA 567 56789 ENB 678 678900 PZA 777 89770

Yo solo quiero quedarme con todo lo que sea = a ENB, lo demas no me sirve, este es el codigo que estoy usando, pero no me doy idea de como saltarme las filas para que continue borrando lo que no me sirve:
Code:

Sub Eliminar()
  ActiveCell.Offset(1, 0).Range("A1").Select
    While ActiveCell.Value  ""
        If ActiveCell.Value = "PZA" Or "KG" Then
           Selection.Delete Shift:=xlUp
        Else
          ActiveCell.Offset(1, 0).Range("A1").Select
        End If
    Wend
End Sub

Porfavor cualquier idea sera muy agradecida!!

editado por Greg para poner los datos en una tabla y el VBA dentro de etiquetas de "code"

Hola,

Necesito saber de que forma puedo hacer para que a al ejecutar una macro que abra un archivo distinto al que estoy trabajando, me pregunte cual es el archivo que deseo abrir.

Saludos y gracias.

Hola que tal Estimados!!!!

Recien ingresado al foro.

Yo, ignoro sobre la funcion hyperlinks en VBA, pero se que se podrian hacer cosas interesantes en VBA.

Me gustaria saber si se puede programar un Hyperlink, que por medio de el texto que escribamos en una celda excel, busque facturas escaneadas, dentro en un folfer que se llama facturas que se encuentra dentro de un servidor.

Vamos, seria asi:

en un libro de ventas, en una celda, pongo 2114, que el hyperlink reconozca que es 2114, y que la busque dentro de ese folder de facturas escaneadas.

Pero una cosa, ese folder de facturas tiene: sulfolders con el nombre de los clientes, y esos folder de los clientes, tienen subfolders que son las unidades, ya que se reparan trailers.

Un ejemplo practico seria:

Ubicados en el libro de ventas, celda "X", escribo 2114, la direccion es:
S:Datos 2009\Facturas\Pedro Sanchez (Folder con el nombre del cliente)\2020(folder con el numero de unidad)\2114.PDF

Pero dependiendo de el numero y el folder en que se encuentre. Sera posible eso????? yo lo veo como una incognita.

Saludos!!!!!!

Hola, este es mi primer post asi que aprovecho para saludar :D

Necesito saber como hacer para que al abrir un archivo de excel (libro de trabajo) se ejecute una macro.

Gracias.

Yo tengo una hoja the information que necesito obtener la informacion en una Forma.

He creado una forma con botones opcionales, cuando el operador selecciona esto botones y manualmente ponen un numero en la casilla del testo. El resultado debe de venir por comparacion en las tablas que existen en el workbook. La forma ya puede seleccionar multiples selecciones, lo que necesito es como obtener la informacion para ensenarla en la forma. Creo que seria mejor de poner el workbook, pero no se como?

Gracias!

Hola de nuevo !!!

Tengo en una macro:

' Estoy trabajando en la Hoja1
Range("A1").FormulaR1C1 = "Fecha: " & Sheets("Hoja2").Range("A1")

donde Sheets("Hoja2").Range("A1"), es una fecha con formato d-mmm-yyyy, o sea NumberFormat = "[$-C0A]d-mmm-yyyy;@". Supongamos qe el valor de esa celda es: 20-oct-2010

Como resultado en la celda A1 de la Hoja1 obtengo:
Fecha: 20/10/2010

Pregunta:
Hay alguna forma de "forzar" que la fecha la ponga en el formato que tengo en toda la planilla, d-mmm-yyyy
Es decir, que en la celda A1 de la Hoja1 obtenga:
Fecha: 20-oct-2010

Gracias
Saludos
Gustavo

Hola.

Tengo el siguiente problema: de una tabla en la cual hay 4 columnas, tengo que buscar la coincidencia de las primeras dos; si coinciden ambas necesito me arroje los valores de las siguientes 2 columnas, pero esto puede repetirse, es decir, puede haber multiples coincidencias. Una forma que se me ocurrio fue con una combinacion de la formula 'buscarv', pero esta solo me arroja la primer coincidencia, si hay mas coincidencias ya no las trae porque deja de buscar al encontrar la primera.

Espero puedan ayudarme.

Saludos y gracias.

Hola amigos.
necesito de su ayuda nuevamente.
como puedo usar la formula de subtotales en columnas. es decir cuando pongo la formula en con referencia a un rango de filas al ocultar algunas filas me da el valor de las filas visibles, pero en columnas no puedo hacer eso. Existe alguna otra forma de hacerlo.

Ayudenme.