Opgelost Makro die een cel kan benoemen

[johnsharda]

Hallo medeexcelgebruikers,
Ik wil een makro maken die kan weergeven waar de eerste lege cel zich bevind maar deze dan ook benoemd, bijvoorbeeld a48.
Ik wil namelijk vanuit daar automatisch waardes laten invullen in F48,G48 enz.

alvast bedankt voor de hulp!

 

[emields]

Voorbeeldje vergeten?

 

[Haije]

Zoiets?

Sub Macro1()
    startadres = Range("A1").End(xlDown).Offset(1).Address
    MsgBox startadres
End Sub

 

[johnsharda]

Bedankt Haije, exact wat ik zocht

 

[HSV]

Het adres ben je niet nodig.

Sub Macro1()
    Range("A1").End(xlDown).Offset(1,5).resize(,2) = array(waarde1,waarde2)
End Sub

Of:

Sub Macro1()
    cells(rows.count,1).End(xlup).Offset(1,5).resize(,2) = array(waarde1,waarde2)
End Sub

 

[johnsharda]

Bedankt Harry, ik zit misschien verkeerd te denken....
Ik heb een voorbeeld bestand erbij gedaan. kan het nu ook dat de kolom G,H,I automatisch wordt ingevuld als je in kolom A iets invuld? dus dat hij zoekt in de kolom naar de eerste lege cel en daar dan de waarde invuld.

 

[HSV]

Zet de code in de werkblad-module en zet kolom G op eigenschap 'Tekst'.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sDate As String
If Target.Column = 1 Then
 Application.EnableEvents = False
  sDate = Format(Target.Text, "mmm-yy")
  Target.Offset(, 6).Resize(, 3) = Array(sDate, "Inkoop" & sDate, "BTW" & sDate)
 Application.EnableEvents = True
End If
End Sub

 

[peter59]

Of misschien met power query????
Het enige nadeel is dat als je waarden invult je hierna even op refreshen dient te klikken.

 

[johnsharda]

Pter bedankt voor het idee van de power query ik he hier geen ervaring in maar gaat dit zeker proberen.