tavopz

Revisa los cambios resaltados: Sub buscafecha() ' Dim w, w1 As Worksheet Dim c As Range Dim h As String ' Set w = sheets("Hoja1") Set w = sheets("Hoja2") ' x = InputBox("Introduzca valor en formato DD/MM/AAAA", "Buscar fecha") ' For Each c In...

Este es un trabajo complicado, pienso que la única manera es mediante macros, pero no sé si tienes conocimiento de este tema para explicarte un poco la idea. Lo que pienso es que puedes crear un archivo .txt desde una macro e ir recorriendo los datos...

Quizás si reemplazas la línea: ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range(Cells(1, 1), Cells(n, 4)), PlotBy:=xlColumns Por: ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A"& n &",D1:D"&n), PlotBy:=xlColumns

Prueba este código: Dim w, w2 As Worksheet Set w = Sheets("Hoja1") Set w2 = Sheets("Hoja2") If w2.Range("A1") = "" Then w2.Range("A1") = w.Range("A1") Else If w2.Range("A1").End(xlDown).Row = 65536 Then w2.Range("A2") = w.Range("A1") Else...

Encontré esta página: http://www.di-mgt.com.au/sudoku.html Revisa si es lo que necesitas, la verdad no descargué el archivo pero según dice allí resuelve cualquier sudoku.

Puedes utilizar la función BUSCARV (ó VLOOKUP en Inglés). Esta función requiere de varios argumentos, revisa mi página para encontrar alguna información al respecto: Revisa esta alternativa y me cuentas si tienes alguna duda.

No hay forma de que el valor de una celda sea 6.00, siempre excel lo redondea y elimina los ceros después de punto. Se me ocurre que podrías multiplicar el valor resultante por 100, de esta forma te quedará 600 y así podrás hacer la extracción.

Prueba con: Sheets("BANCOS").Unprotect Sheets("Acceso").Range("Z1").Value Si lo que intentas desproteger es un libro, entonces debe ser el libro activo: ActiveWorkbook.Unprotect Sheets("Acceso").Range("Z1").Value

Puedes hacer un ciclo que recorra las celdas y vaya ingresando los datos en el combo, algo como: Dim w as Worksheet Set w = sheets("Hoja2") Dim c as Range For each c in w.Range("A1:A100") If c = combobox1.Value then ComboBox2.AddItem Range("B" &...

No estoy seguro de haber entendido. Qué pasa si usas una función condicional SI para determinar si pone o no el valor, así: =SI(Hoja1!A1 = ""; ""; Hoja1!A1)