Macro uitvoeren op welbepaalde cel

[edmoor]

Graag gedaan

 

[SafeConstruct]

Ik finaliseer mijn brouwsel en droom nog van volgende ...

In sheet database wil ik eveneens nog een document activeren, zijnde sheet Dbase Faks en dit heb ik (net zoals andere sheets) willen integreren, maar wel met de volgende voorwaarde (anders dan de andere). Ziehier alvast de macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Or Target.Column = 27 Or Target.Column = 32 And Target.Count = 1 And Target.Row > 1 Then
        Sheets("CT").Range("A1") = Cells(Target.Row, 3)
        Sheets("OFFERTE").Range("A1") = Cells(Target.Row, 3)
        Sheets("OFFERTE variabel").Range("A1") = Cells(Target.Row, 3)
        Sheets("PB").Range("A1") = Cells(Target.Row, 3)
        Sheets("PID").Range("A1") = Cells(Target.Row, 3)
        Select Case Target.Column
            Case 4: Sheets("CT").Activate
            Case 27: Sheets("PID").Activate
            Case 32: Sheets("DBASE FAKS").Activate
        End Select
        Cancel = True
    End If
End Sub

Ik klik op kolom 32 (AF) in sheet database en wil de sheet Dbase Faks openen (op zich geen probleem) maar wel met de volgende voorwaarde :
- de cel mag al of niet leeg zijn (vanaf het ogenblik dat ik de cel in kolom AF klik typ ik 'OK', wil zeggen dat ik de faktuur opmaak.
- in de sheet Dbase Faks dien ik de eerste vrije rij te verkrijgen en daarvoor heb ik de volgende macro maar kan deze niet plaatsen op de juiste locatie

Sub selectlastemptyrow()
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End Sub

- op de eerste rij die vrij is (in voorbeeld Dbase Faks cel B2) plaatst de macro automatisch de inhoud van de cel DATABASE kolom D van de desbetreffende rij
- in sheet Dbase FFaks op kolom C van de eerste vrije rij plaatst de macro de datum van vandaag via vandaag() MAAR deze datum dient wel vast te blijven (faktuurdatum mag niet gewijzigd worden).

Of mijn filosofie duidelijk is weet ik niet echt .... Maar ik probeer

 

[VenA]

Gebruik application.goto

 

[SafeConstruct]

Dank voor de feedback. Is de bovenstaande die ik heb niet ok ? Ik gebruik deze in nog andere sheets vandaar ...
Dan rijzen nog de andere vragen ivm de te plaatsen inhoud.

 

[edmoor]

Of dit:

Application.Goto Sheets("DBASE FAKS").Cells(1).End(xlDown).Offset(1, 0)
ActiveCell.Offset(, 2) = Format(Date, "DD-MM-YYYY")

 

[SafeConstruct]

Dank ! Ik ben al iets verder met het brouwsel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Or Target.Column = 27 Or Target.Column = 32 And Target.Count = 1 And Target.Row > 1 Then
        Sheets("CT").Range("A1") = Cells(Target.Row, 3)
        Sheets("OFFERTE").Range("A1") = Cells(Target.Row, 3)
        Sheets("OFFERTE variabel").Range("A1") = Cells(Target.Row, 3)
        Sheets("PB").Range("A1") = Cells(Target.Row, 3)
        Sheets("PID").Range("A1") = Cells(Target.Row, 3)
        Sheets("DBASE FAKS").Range("A1") = Cells(1).End(xlDown).Offset(1, 0).Select
            ActiveCell.Offset(, 2) = Format(Date, "DD-MM-YYYY")
        Select Case Target.Column
            Case 4: Sheets("CT").Activate
            Case 27: Sheets("PID").Activate
            Case 32: Sheets("DBASE FAKS").Activate
            
        End Select
        Cancel = True
    End If
End Sub

Ik spring nu bij het klikken op cel AF2 in database naar de sheet Dbase Faks, doch kom ik niet op de eerste blanco lijn en neem ik mijn gegevens van de sheet database niet mee.

 

[edmoor]

Je hebt het ook niet gedaan zoals ik liet zien.
Iets veranderen en dan zeggen dat het niet werkt schiet niet op natuurlijk.
Doe wat ik liet zien, maar dan ik de Select Case.

Dus in plaats van:

Case 32: Sheets("DBASE FAKS").Activate

Dit:

Case 32
    Application.Goto Sheets("DBASE FAKS").Cells(1).End(xlDown).Offset(1, 0)
    ActiveCell.Offset(, 2) = Format(Date, "DD-MM-YYYY")

 

[SafeConstruct]

Excuses Edmoor, ik had maar een stuk meegenomen en inderdaad, niet op de correcte plaats (ik heb hier wel meermaals problemen mee : het plaatsen van items op de exacte plaats ...)

Bij het testen zie ik dat inderdaad de datum wordt meegenomen, maar niet de gegevens bedoeld voor kolom B.
Bijkomend zie ik dat deze macro de eerste vrije lijn neemt in kolom A, doch dient dit de eerste vrije lijn te zijn in kolom B, met dan in kolom B de gegevens uit cel database C (van de desbetreffende lijn uiteraard).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Or Target.Column = 27 Or Target.Column = 32 And Target.Count = 1 And Target.Row > 1 Then
        Sheets("CT").Range("A1") = Cells(Target.Row, 3)
        Sheets("OFFERTE").Range("A1") = Cells(Target.Row, 3)
        Sheets("OFFERTE variabel").Range("A1") = Cells(Target.Row, 3)
        Sheets("PB").Range("A1") = Cells(Target.Row, 3)
        Sheets("PID").Range("A1") = Cells(Target.Row, 3)
        Select Case Target.Column
            Case 4: Sheets("CT").Activate
            Case 27: Sheets("PID").Activate
            Case 32: Sheets("DBASE FAKS").Activate
                        Application.Goto Sheets("DBASE FAKS").Cells(1).End(xlDown).Offset(1, 0)
                        ActiveCell.Offset(, 2) = Format(Date, "DD-MM-YYYY")
        End Select
        Cancel = True
    End If
End Sub

 

[edmoor]

Zo langzamerhand zou je toch moeten weten hoe je dat moet "fine tunen".

 

[AD1957]

@edmoor, respect voor jouw geduld.:thumb:

voor TS

Case 32: dosnr = Target.Offset(, -29)
                     Application.Goto Sheets("DBASE FAKS").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
                     ActiveCell = dosnr
                     ActiveCell.Offset(, 1) = Format(Date, "DD-MM-YYYY")

 

[SafeConstruct]

@Edmoor & Albert,

Ik was een andere weg ingeslagen, en soms is het zo'n kluwen omdat je na lang zoeken eigenlijk door het bos de bomen niet meer ziet. Alleszins excuses hiervoor, alle begin is moeilijk wordt dan gezegd ...
Ik heb de test gedaan van Albert en dit is inderdaad de oplossing (zoals ik zei was ik een andere weg ingeslagen). Ik bekijk dit alles verder en probeer verder te bouwen op jullie feedback, waarvoor nogmaals van harte dank.
Alsook oprechte dank voor jullie geduld.

 

[edmoor]

Geen probleem hoor.
Mocht het nodig zijn zien we je wel weer terug

@AD1957:
Bedankt voor de aanvulling