Jump to content

chiquitinx

Members
  • Posts

    12
  • Joined

  • Last visited

Community Answers

  1. chiquitinx's post in Busqueda en rango de columnas was marked as the answer   
    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
     
     
×
×
  • Create New...

Important Information

Privacy Policy