Saltar al contenido

Saltar celdas en blanco en VBA


Recommended Posts

Hola!

Tengo el siguiente codigo VBA asociado a una macro y no he logrado agregar una linea para saltar todas las celdas que se encuentren en blanco sin terminar mi macro, me pueden ayudar por favor?

Basicamente busco que al correr la siguiente linea, el codigo sepa que cuenado la celda esta vacia, se debe pasar a la siguiente celda sin enviar un 0 ni otro valor. 

Set valueCell = Worksheets("WritePI").Cells(i + 2, 2)

 

Codigo:

Sub put_data3()
   Dim i As Integer
   Dim numoftags As Integer
   
   'The following four variables are arguments to PIPutVal()
   Dim sTagname As String  'Tagname
   Dim stime As String     'Timestamp
   Dim valueCell As Range  'Cell reference containing value to be written
   Dim resultCell As Range 'Cell reference to hold result
   Dim sServer3 As String   'PI3 server name
   Dim apierr As Long
   Dim rowstr As String
   Dim buf As String
   Dim Timeval As Double
   
   Dim macroResult As Variant
   Dim timeCell As Range 'Cell reference to hold time of putval
   
   
   i = 0
   numoftags = 20 'Define number of tags that will receive data
   
   'Define cell storing desired timestamp
stime = Worksheets("Configuration").Cells(7, 7).Text
   

   'Define Server's cell
   sServer3 = Worksheets("Configuration").Cells(9, 3).Text
   i = 0
   While i < numoftags
      'Confirmation Message
      Set resultCell = Worksheets("WritePI").Cells(i + 2, 3)
      'Tag Names
    sTagname = Worksheets("WritePI").Cells(i + 2, 1).Text
    'Values to be sent to PI
    Set valueCell = Worksheets("WritePI").Cells(i + 2, 2)
      
macroResult = Application.Run("PIPutValx", sTagname, valueCell, stime, sServer3, resultCell)
        
      'move down to the row number
      i = i + 1
Wend

Call ReadFromPI 'Macro


End Sub

CODIGO FUNCIONAL.txt

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.