Una rutina de 5ª Generacion. Toma decisiones propias.

[Guillermo_Torre]

Muy buenos dias/buenas tardes/noches.

Es mi primera pregunta, asi que gracias a todos por leerlo, se que quien pueda ayudara.

Os copio una sentencia que me tiene loco y ya no se por donde seguir.
__________________________________________________ _____________
Sub BuscarTextoEnLibro()

Dim MiWord As String, FirstFind As String, MiMsg As String
Dim MiCell As Range, MiRangoActivo As String

MiWord = InputBox("Artículo a Buscar"): If MiWord = "" Then Exit Sub
MiRangoActivo = Selection.Address(External:=True)

For Each MiSheet In ThisWorkbook.Sheets
FirstFind = ""
Do
If FirstFind = "" Then
Set MiCell = MiSheet.Cells.Find(What:=MiWord, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False)
If MiCell Is Nothing Then GoTo S02
FirstFind = MiCell.Address
Else
Set MiCell = MiSheet.Cells.FindNext(MiCell)
If MiCell.Address = FirstFind Then GoTo S02
End If

Application.Goto MiCell
MiMsg = "El Artículo se encuentra en la hoja """ & ActiveSheet.Name & """." & _
Chr(10) & Chr(10) & "¿ Continuar buscando ?"

If MsgBox(MiMsg, vbYesNo, "Localizado texto: """ & MiWord & """") = 7 Then
Set MiCell = Nothing
Exit Sub
End If

Loop

S02:
Next MiSheet

Application.Goto Range(MiRangoActivo)
Set MiCell = Nothing
End Sub
__________________________________________________ _________

Esto lo he copiado de internet, yo no tengo ese nivel ni por asomo.
La macro funciona, pero cuando ella decide.
Busco palabra o parte de palabras y va de muerte, pero en ocasiones da un fallo, cual?:

Se ha producido el error "91" en tiempo de ejecucion:
Variable de objeto o bloque With no establecido

y en el visual basic se queda parado en la sentencia:
If MiCell.Address = FirstFind Then

Despues de romperme los cuernos he conseguido ver, que falla, solo cuando tengo dos o mas celdas conalineacion combinar celdas. Hasta aqui casi bien. Pero Sigo.

No siempre, solo algunas veces lo hace, osea que busco una palabra que esta en una casilla alineada con otra y no falla, pero en la de al lado con otra palabra si.

He intercambiado formatos, palabras etc, y no encuento el orden, pero por ejemplo en la celda A1 siempre funciona da igual lo que ponga pero en por ejemplo la celda a1 de otra hoja unas palabras funcionan y otras no. No me ceeis, yo tampo, he tirado la toaya, si alquien quiere la hoja se la paso.

Gracias y perdonar la barrila.

[David]

Eso ocurre porque al llamar a FindNext no se encuentra el valor buscado, para que no ocurra coloca esta línea justo antes de la que te da error:

Código vb:

If MiCell Is Nothing Then GoTo S02
 

[Guillermo_Torre]

Joder, David el Grande, se te queda pequeño el adjetivo. Macho "Chapo" a la primera.
Claro que esta es la diferencia entre saber y no saber.

Oye no se si puedes por aqui, pero, me gusta mucho urgar en estos temas, hago una hojas y macros (automaticas) que la gente se queda con la boca abierta, y no tengo ni idea. Quiero aprender, me he comnrpado dos libros de visual basic, esos de anaya de iniciacion a la programacion en Visual, yo solo tengo nociones de cuando era al basic solo (tengo mis añitos, como veras), podrias aconsejarme por donde o como empezar? Lo que me digas sera como mi credo.

Gracias, no te imaginas lo que me voy a tirar el rollete con esta hoja de calculo. Voy a seguir mejorandola, ya te preguntare.

[David]

No sé, yo no conozco mucho de manuales sobre el tema. Pero te comento que sabiendo lo básico la mejor forma de aprender es leyendo código hecho por terceros.

P.S.: Mi mejor profesor: Google. Y cualquier duda que tengas estamos por acá.

P.S.2: ¿Eres de la época del QBasic como yo? .

[Guillermo_Torre]

Oye no me llames abuson anda, mira, tengo que rellenar esta macro

Private Sub CheckBox1_Click()

End Sub

Osea entera, quiero que cuando pincho en la caja en una casilla escriba un numero, por ejemplo 1,16 y cuando lo despincho, que ponga 1,00.

NONONO, soy del basic del primero, del que corria en msdos. Y si estoy aprendiendo leyendo rutinas, pero algunas se me atascan, no entiendo algunos bucles, pero te prometo que sera el google mi primer libro.

[David]

¿Y dónde debe escribirse ese número? .

P.S.: QBasic se ejecutaba en MS-DOS .

[Guillermo_Torre]

Tengo una tarifa de precios (que si quieres te envio) me vale cualquier casilla, pero si se te ocurre como hacerlo en plan "profesional" te comento.

La casilla es para que si la lista de precios la quieres con IVA (estoy en España), multiplique todos los precios (son 800 esparramados en 8 hojas), por 1,16 y si no esta seleccionada que deje los precios netos sin impuestos.

Habia pensado que siempre fuera la misma casilla, yo multiplico los precios por esa casilla, si es uno, quedara igual, si es 1,16 es lo mismo que subirle un 16% de impuestos.

Luego quiero hacer lo mismo pero para que los rededonde a decimales por ejemplo multiplos de 0,10, para eso luego intentare habilitar otra casilla.

De todas maneras, la gente que ha visto la hoja esta encantada, porque antes no tenian nada, luego una tarifa y ahora una tarifa con precios de publico, asi no curran, y eso les gusta.

[David]

Lo único que necesitas es hacer referencia a la celda donde quieres poner el valor. Por ejemplo:

Código vb:

Worksheets("Hoja").Range("A1").Value = "Texto"
 

Eso escribirá Texto en la celda A1 de la Hoja "Hoja".

[Guillermo_Torre]

Si pero como hago para que si esta activada, ponga un valor y si esta desactivada, ponga otro?

[David]

Puedes usar la propiedad Value del CheckBox (Es un Boolean, Verdadero cuando está seleccionado, de lo contrario es Falso).

[Guillermo_Torre]

Puedes escribir la rutina? Es mucho pedir, luego en casa (estoy currando) lo hago.
Gracias.
Si no puedes con lo que ya tengo voy bien, lo otro sera la version 2.1, jajajaja

[Guillermo_Torre]

Por cierto, ni te pregunte, tu de donde eres?

[David]

Código vb:

If CheckBox1.Value Then
   'El CheckBox está seleccionado
Else
   'El CheckBox no está seleccionado
End If
 

Soy del otro lado del océano .

[Guillermo_Torre]

Esto asi solo no hace nada, yo queria que si esta activado en una casilla, me da igual cual, saliera un numero #1 por ejemplo y si no esta saliera otro numero ejemplo #2.

Oye si soy un plasta dimelo, que te dejo en paz, si no todavia te quedan 100 preguntas mas.

[David]

Pues sí, así es, el código lo debes completar tú, así como está no hace nada.

Donde dice "El CheckBox estás seleccionado" coloca las acciones que quieres que se realicen en caso de que así sea y en la otra parte coloca las acciones para cuando no esté seleccionado.