Jump to content

chiquitinx

Members
  • Posts

    12
  • Joined

  • Last visited

Everything posted by chiquitinx

  1. Al parecer, alguien si pudo adivinar mi problema. Y la solución no fue muy difícil. Private Sub CommandButton1_Click() Dim fecha As String Dim columnas, filas As Range Dim a, b As Integer fecha = dia & "/" & dia & "/" & año fecha = CStr(fecha) Set columnas = Range("d3:ds3") Set filas = Range("c4:c94") a = filas.Find(subcodigo).Row: MsgBox a b = columnas.Find(fecha).Column: MsgBox b Cells(a, b) = TextBox1 End Sub
  2. Bueno al parecer no puedo subir archivos, y sinceramente e tratado de pagar la suscripción y no me deja. algún conflicto con la forma de pago
  3. Buenas tardes estimados(as): Tengo una duda, al aplicar código fuente para que de acuerdo a parámetros se pueda realizar una búsqueda dentro de un rango de celdas, en las cuales los encabezados de columnas representan fechas, y las filas códigos de grupos. Se requiere realizar una búsqueda por fecha y código para introducir en la intersección un valor que se tiene en un textbox. el código que se utiliza es el siguiente: Sub busqueda() Dim fecha As Date Dim columnas, filas As Range Dim a, b As Integer fecha = dia & "/" & mes & "/" & año Set columnas = Range("af3:ds3") Set filas = Range("c4:c94") a = filas.Find(codigo, , xlValues, xlWhole, xlByRows, xlNext, False).Row b = columnas.Find(fecha, , xlValues, xlWhole, xlByColumns, xlNext, False).Column Cells(a, b) = TextBox1 End Sub Por alguna razón el valor de a es encontrado y reportado, pero cuando esta corriendo la linea de código en la que se busca la columna devuelve un error "object variable or with block variable not set". ¿Que es lo que esta mal?, ¿Qué concepto, conocimiento o criterio esta aplicándose mal?, gracias por sus comentarios.
  4. Gracias por la correción. ¿Qué sucede entonces en esta parte de código? Set Cache_Tabla = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Rango_Tabla.Address) E intentado codificarlo sin utilizar los nombres de parámetros y me devuelve un error, pero colocando los nombres de parámetros y luego el parámetro, no tengo inconvenientes.
  5. Buenas tardes estimados (as): Tengo una duda, por favor si pueden aclararme lo siguiente. dentro de la sintaxis que se maneja eh visto que en algunos casos se utiliza por ejemplo: Set Dato = .Cells.Find(What:=nombre, lookat:=xlWhole) y en otros casos se utiliza set dato =.cells.find(nombre, xlwhole) ¿Existe alguna razón para ello?, eh notado que en algunas versiones de excel ya sea 32 bits o 64 bits no ejecuta el código, entonces ¿Hay alguna regla para codificar de una u otra manera?, si pueden ayudarme con esta duda. Gracias de antemano
  6. :D la felicidad no se la encuentra se la construye
×
×
  • Create New...

Important Information

Privacy Policy