Visual Basic para Aplicaciones - Visual Basic en Excel

Life is soft - evento anual de software empresarial
   
Vista:

Visual Basic en Excel

Publicado por javier (4 intervenciones) el 25/10/2016 18:05:49
he realizado esta codigo para grabar desde un un formulario en excel. pero solo lo hace cuando la hoja esta activa. si abro otro archivo excel, me sale Error que la hoja no existe. agradecere quien me pueda ayudar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Len(Trim(Ruc)) = 11 And IsNumeric(Ruc) Then
 
'ActiveWorkbook.Sheets.Select
'Sheets("clientes").Select
 
Range("B2").Select
    Do While ActiveCell <> Empty
        If CStr(ActiveCell) = txtRuc Then
        MsgBox "RUC ya esta registrado", vbCritical, "Alerta"
        GoTo Termina
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
 
ActiveCell.FormulaR1C1 = txtRuc
ActiveCell.Offset(0, 1).Select
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

Visual Basic en Excel

Publicado por JuanC juanc2942@gmail.com (498 intervenciones) el 27/10/2016 12:39:23
deberías guardar referencia al libro/hoja de trabajo y luego activarla antes de trabajar:

1
2
3
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet (podrías usar Sheets(index))
ws.Activate
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Visual Basic en Excel

Publicado por javier (4 intervenciones) el 27/10/2016 17:36:10
Muchas Gracias Juan C. funciono.
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