Fout in een vba code

[Jan1978]

Hallo helpers,

Ik ben zelf een beetje aan het proberen gewees om mijn boeken in een excel bestand te zetten.
Dit is goed gelukt maar als ik een nu boek doe toevoegen krijg ik een foutcode en heb van alles geprobeer kan iemand mijn hier mee helpen het probleem op te lossen.

en dan was mijn vraag of er een vba code is als ik titel en schrijver heb in gevuld dat vba dit omzet naar een hyperlink voor een kleine beschrijving van het boek.


Bekijk bijlage 118767


Als vast bedank

Jan

 

[Koos Voos]

Zoiets ??

Hierbij gaat hij op zoek naar de eerste vrije cel in kolom C, beginnend met cel C6.
Dan vult hij op die regel de data in, in kolom C, D etc

Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Boeken").Activate
    Range("C6").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(0, 1) = TextBox2.Value
    ActiveCell.Offset(0, 2) = ComboBox1.Value
    Unload Me
End Sub

Hopelijk heb je er iets aan

Groeten,
Koos

 

[Jan1978]

Zoiets ??

Hierbij gaat hij op zoek naar de eerste vrije cel in kolom C, beginnend met cel C6.
Dan vult hij op die regel de data in, in kolom C, D etc

Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Boeken").Activate
    Range("C6").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = TextBox1.Value
    ActiveCell.Offset(0, 1) = TextBox2.Value
    ActiveCell.Offset(0, 2) = ComboBox1.Value
    Unload Me
End Sub

Hopelijk heb je er iets aan

Groeten,
Koos

Hallo Koos

Het wegschrijven van een nieuw boek dit gaat wel goed maar de fout die tervoorschijn komt heeft met het zoeken te maken en dit is mijn niet duidelijk waarom die daar een fout geeft.


Groeten ,
Jan

 

[Koos Voos]

Hoi Jan,

Uit je code van je userform (bij CommandButton1) de volgende regel wegehaald

Rows("5:5").Select

Hierna de foutmelding hier niet meer voorgekomen,

(vraag me niet waarom .....weet ik ook niet)

Groeten,
Koos

 

[Jan1978]

Hoi Jan,

Uit je code van je userform (bij CommandButton1) de volgende regel wegehaald

Rows("5:5").Select

Hierna de foutmelding hier niet meer voorgekomen,

(vraag me niet waarom .....weet ik ook niet)

Groeten,
Koos

Hoi Hoos,

Ik heb de regel aangepast en nu werkt die prima.
Bedank voor je reactie en oplossing.:d

Groeten,
Jan