Beste leden,
kan er iemand helpen met het maken van een code om op een website gegevens in te voeren en de resultaten te kopieren.
Voor de duidelijkheid staat er in het bestand een link naar een filmpje.
in onderstaande code staat hetgeen dat vooraf gebeurd.
kan er iemand helpen met het maken van een code om op een website gegevens in te voeren en de resultaten te kopieren.
Voor de duidelijkheid staat er in het bestand een link naar een filmpje.
in onderstaande code staat hetgeen dat vooraf gebeurd.
Code:
Sub InteeltdetailsLedigen() 'uitvoeren in blad Inteeltdetails
Application.ScreenUpdating = False
Sheets("Inteeltdetails").Select
'formule plaatsen in Z1
Range("Inteeltdetails!Z1") = "=""Inteeltdetails!A3:AC""&SUMPRODUCT(MAX((C[-25]:C[-2]<>"""")*ROW(C[-25]:C[-2])))"
Z1 = Range("Inteeltdetails!Z1").Value
'Inhoud van rijen na rij 2 verwijderen
Range(Z1).ClearContents
'Formules plaatsen in AB1
Range("Inteeltdetails!AB1") = _
"=IF(ISERR(FIND(""through"",R[4]C[-27],1)),IF(ISERR(FIND(""Inbreeding: F ="",R[4]C[-27],1)),"""",""INTEELTCOËFFICIËNT VAN ""&INTEELT_K&SUBSTITUTE(R[4]C[-27],""Inbreeding: F"","""")),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(R[4]C[-27],""through"",""door""),""paths"",""paden""),""path"",""pad""))"
Range("Inteeltdetails!AB1").Select
Selection.Copy
Range("Inteeltdetails!AB2").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Columns("A:A").Hidden = False
Range("Inteeltdetails!A1").Select
Sheets("Inteelt_berekenen").Select
'Open website
Range("nabssar_coi_calculator_input").Copy
ThisWorkbook.FollowHyperlink ("http://www.nabssar.org/coi_calculator/index.html")
Application.ScreenUpdating = True
[COLOR="#FF0000"][FONT=Arial Black]'hier graag en code voor volgende opdrachten op de website
'in [textarea] ctrl+v
'Klik op [Populate pedigree]
'Klik op [Calculate]
'ctrl+a
'ctrl+v
'sluit de website
'in excel macro "InteeltdetailsVullen" uitvoeren
[/FONT][/COLOR]
End Sub
