Crear un espacio vació después condicion

[GusRichart]

Buen día a todos, busco un poco de asesoría para saber cual es el código en VBA para que me genere un espacio vació, o algo parecido cuando presionas enter a escribir e ir a la siguiente casillas, esta es mi estructura:

1.- Todo se activa en el evento click en un boton.

2.- son 2 tablas conectadas a SQL, a través de recordset que una es la entrada y la otra es la salida

3.- Tienen un contador para el numero de filas, en el cual se encarga que después de un registro deje un espacio(Solo en entrada)

4.- La condición que puse para las salidas es: si hay mas de un registro de salida según la entrada, entonces deja un espacio y luego sigue con la siguiente búsqueda (Esto es lo que busco corregir)

Intente usando funciones tales como "CurrentSheet.Range", "Rows().Insert", e incluso "Cells", pero ninguno da lo que busco, el unico que casi opera como yo busco es "Rows(MoverFilas + m).Insert", pero lo hace en la tabla entrada, debido a no se como se declara el "ColumnIndex"

Bueno eso es todo por mi parte, les anexo código, en caso de requerir algo mas favor de comentarlo (Anexo archivo de excel, pero no funcionara debido a que esta conectado a SQL)

Esto lo que pasa al presionar el botón sin la condición que busco

Y esto lo que pasa cuando, pongo la condición(Que debe generarme un espacio debajo, si hay mas de 2 registro en las salidas)

If Sali.RecordCount > 1 Then

Rows(MoverFilas + m).Insert

Ahora busco obtner algo como esto(Esto fue elaborado a mano sin codigo)

Me indique su entrada y su salida respectiva

Private Sub CbEntrada_Click()

'Asigancion de los datos a las casillas

MoverFilas = 3

n = 0

m = 0

Dim Entr As New ADODB.Connection 'Conexion a la base de datos

Dim Most As New ADODB.Recordset 'Conexion a la tabla de entrada

Dim Sali As New ADODB.Recordset 'Conexion a la tabla de salida

'Abriendo Base de datos

Entr.Open "Provider=SQLOLEDB;Data Source=DELL-PC\COMPAC;Initial Catalog=BDEximNoe;Integrated Security=SSPI"

'Tomando los datos de la tabla entrada

Most.Open "SELECT Fecha,Factura,FraArance,NoParte,Descripcion,CantComer FROM TbCapFactura", Entr, adOpenStatic

'Tomando los datos desde SQL y mandarlo a Excel en la primera tabla

Most.MoveFirst

Do While Not Most.EOF

Fecha = "" & Most!Fecha

Cells(MoverFilas + n, 1).Value = Fecha

Fact = "" & Most!Factura

Cells(MoverFilas + n, 2).Value = Fact

Aran = "" & Most!FraArance

Cells(MoverFilas + n, 3).Value = Aran

Parte = "" & Most!NoParte

Cells(MoverFilas + n, 4).Value = Parte

Desc = "" & Most!Descripcion

Cells(MoverFilas + n, 5).Value = Desc

Cantidad = "" & Most!CantComer

Cells(MoverFilas + n, 6).Value = Cantidad

Most.MoveNext

n = n + 2

Loop

'Tomando los datos desde SQL y mandarlo a Excel en la segunda tabla

Most.MoveFirst

Do While Not Most.EOF

Sali.Open "SELECT Fecha,Factura,FraccionAran,NoParte,Descripcion,CantComercial FROM TbSalFactura WHERE FraccionAran = '" & "" & Most!FraArance & "' AND NoParte = '" & "" & Most!NoParte & "' ", Entr, adOpenStatic

Sali.MoveFirst

Do While Not Sali.EOF

FechaA = "" & Sali!Fecha

Cells(MoverFilas + m, 8).Value = FechaA

FactA = "" & Sali!Factura

Cells(MoverFilas + m, 9).Value = FactA

AranA = "" & Sali!FraccionAran

Cells(MoverFilas + m, 10).Value = AranA

ParteA = "" & Sali!NoParte

Cells(MoverFilas + m, 11).Value = ParteA

DescA = "" & Sali!Descripcion

Cells(MoverFilas + m, 12).Value = DescA

CantidadA = "" & Sali!CantComercial

Cells(MoverFilas + m, 13).Value = CantidadA

Sali.MoveNext

m = m + 1

If Sali.RecordCount > 1 Then

Rows(MoverFilas + m).Insert

'CurrentSheet.Range(Moverfila + m).EntireRow.Insert

End If

Loop

Sali.Close

Most.MoveNext

Loop

Entr.Close

End Sub

'Cells.Range("A3").CopyFromRecordset Most

Private Sub CbLimpiar_Click()

Cells.Range("A3:F4640").ClearContents

Cells.Range("H3:M4750").ClearContents

End Sub[/CODE]

EspaciosVacios.zip

[Antoni]

Sube un archivo después de obtener la información de la base de datos, y explica que es lo que quieres obtener con un ejemplo de que es lo que esperas obtener.

[GusRichart]

Ya esta subido el archivo de excel, ademas de que edito el tema para mayor compresion