Visual Basic - dudas con un bucle en VB de EXCEL

Life is soft - evento anual de software empresarial
   
Vista:

dudas con un bucle en VB de EXCEL

Publicado por jaime (2 intervenciones) el 11/11/2008 13:17:46
Hola:
tengo una pequeño problema necesito que me ponga hola en la celda especifica que es la c3 pero tengo este codigo y me da error
este es el codigo:

Sub prueba()
Dim celda1 As String
celda1 = Hoja1.Cells(22, 2)
Dim celda2 As String
celda2 = Range("A1:A15").Select
Selection.Find(What:=celda1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

If celda2 = "Verdadero" Then
Dim celda3 As String
celda3 = Range("B1:B15").Select
Selection.Find(What:=celda2, After:=C1, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ElseIf celda3 = "Verdadero" Then
Hoja1.Cells(1, 3) = "hola"


Else
Hoja1.Cells(4, 3) = "error"

End If

End Sub

Algien me puede ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:dudas con un bucle en VB de EXCEL

Publicado por igor (633 intervenciones) el 11/11/2008 20:57:40
Amigo Jaime, debes dirigirte al foro de VBA o Excel en su caso.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:dudas con un bucle en VB de EXCEL

Publicado por Imanol (6 intervenciones) el 30/12/2008 22:36:54
Yo tengo esto, no se si te servirá

Dim miEA As Object
Dim miLibro As Object
Dim miHoja As Object

Private Sub CmdGuardar_Click()
x = 1
y = 1
While miEA.application.cells(x, y).Value <> ""
x = x + 1
Wend
miEA.application.cells(x, y).Value = Txt.Text
'miEA.Application.Cells(1, 1).Value = "hola"
End Sub

Private Sub Form_Load()
Form1.Top = (Screen.Height - Form1.Height) / 2
Form1.Left = (Screen.Width - Form1.Width) / 2
Txt.Text = ""
Set miEA = CreateObject("Excel.Application")
Set miLibro = miEA.Workbooks

miLibro.Open "c:mis documentospruebas.xls" 'Ojo con esta ruta

Set miHoja = miEA.ActiveWorkBook
miEA.application.Visible = True
miEA.application.cells(1, 1).Value = "presión"
miEA.application.cells(1, 2).Value = "caudal"
End Sub

Private Sub CmdCerrar_Click()
On Error Resume Next
miHoja.Save ("u:vbimanolPru.xls")
miHoja.Close (True)
End
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar