eerste lege kolom

[stefano]

Ik beschik over een makro die het aantal rijen telt en daaronder een tekst plakt : Zie hieronder

Dim x As Long
x = Cells(Rows.Count, "A").End(xlUp).Row
Range("c" & x + 2).Select
Range("c" & x + 2) = "gemiddeld"
ActiveCell.Offset(0, 3) = WorksheetFunction.Average(Range("F4:F" & x))

Nu ben ik eigenlijk op zoek naar de eerset lege cel in rij 1 van mijn sheet. Kan iemand helpen ? In die eerste lege cel zou ik dan een paste willen uitvoeren van een vooraf gedefiniëerd bereik. bv uit sheet 2 bereik c1:d15 plakken (speciaal - enkel waarden).


dbv,

Stefano

 

[Dnereb]

Zowietzzzzzzzzzz?

'Rij is de rij waarin de lege cel gezocht moet worden
'Return waarde het kolomnummer voor de eerste lege cel in die rij
'kolom A = 1 B = 2 C = 3 etc...
Function FindFirstEmptyCelInRow(Rij As Long) As Integer

Dim Sh As Worksheet
Set Sh = ActiveWorksheet

FindFirstEmptyCelInRow = 1
Do While (Len(Sh.Cells(Rij, FindFirstEmptyCelInRow) & "") = 0)
    FindFirstEmptyCelInRow = FindFirstEmptyCelInRow + 1
End Function

 

[lcodee]

Of zoiets: