lezen vanuit een ander bestand

Status
Niet open voor verdere reacties.
Er moeten minimaal twee regels gevuld zijn voor het creëren van een 'List'.
 
Wat doet dit vanaf hier?

Code: 
Private Sub ComboBox21_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If MsgBox("U wilt deze gegevens toevoegen?", vbCritical + vbYesNo) = vbYes Then
Application.ScreenUpdating = False
  If ComboBox21.ListIndex = -1 Then
    With Workbooks.Open("C:\Dropbox\documenten\Excel omschrijving.xlsm").Sheets("blad2")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1) = ComboBox21.Value
    
Wat doet dit vanaf hier? 
Want het bovenste kan ik gebruiken voor enkele ComboBox te kopiëren naar ander bestand.
Het onderste gedeelte van 41 tot 110 doet het alleen de ComboBox kopiëren. 
Hier heb ik echt van alles al veranderd maar ik krijg het bedrag wat in H41:H110  (en N waar tekst of getallen in kunnen komen te staan) staat niet in D en N andere blad en op lijn met de invoer vanuit ComboBox.

 ComboBox21.List = .Range("H41:D" & .Cells(Rows.Count, 4).End(xlUp).Row).Value
     .Parent.Close -1
    End With
  End If
End If
End Sub
End Sub
 
Het moet anders geschreven worden.
Code: 
ComboBox21.List = .Range("D41:H" & .Cells(Rows.Count, 4).End(xlUp).Row).Value

En dan kan je kiezen voor de lengte van kolom D (is de 4) of kolom H (8).

Het zet de gegevens van het bereik van de te openen bestand in de combo.
 
Beste Harry,
Ik heb de regel geheel overgenomen en echt van alles geprobeerd. Waar het bedrag in staat is geen combobox maar een gewone cell.
wat zou het kunnen zijn verder?
 
Ik ben de draad kwijt zo te zien.
Omschrijf eens wat er moet gebeuren.
 
ComboBox 21 moet naar blad2 kolom 2 ( is correct)
dan staat er in H41 ( gewone cel) een bedrag dat moet gekopieerd worden naar kolom D in blad2 maar op gelijke hoogte als wat er in rij C staat op blad2 van de ComboBox.
dan heb ik af en toe ook nog een tekst of getal in N41 staan dat gekopieerd moet worden naar F en ook weer op gelijke hoogte als wat in C en D staat.
 
Laatst bewerkt:
Mark,

Is dit van de een naar de ander bestand?
Begrijp er helaas niet veel van.
Plaats beide bestanden eens.

Ik moet het steeds doen zonder voorbeelden, jij weet wat de bedoeling is, maar ik moet het verhaal drie keer lezen om daar een beeld bij te krijgen als het niet erg duidelijk is.
 
mag ik het offerte bestand persoonlijk mailen ivm veel prive info.
 
Sloop het privé gedeelte eruit.
Overigens wordt het ook niet eerder als morgenavond dat ik reageer (wekker gaat om 04:30 uur). :rolleyes:
 
Mark.

Sla ze op als .xlsb (binair) en plaats ze eens op het forum ipv van dat ik een account moet aanmaken.
 
Test het maar eens.

Code: 
.Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 4) = Array(ComboBox21.Value, Range("b41").Value, "", Range("n41").Value)
 
Harry!!!!!

Ongelofelijk!!!
Wat een gave!
Het werkt perfect!!
dank U dank U !!
Groetjes paul m
 
Dank je; Graag gedaan, en ik maar denken dat je Mark heet. :o
 
weer een vraag (je)

Beste Harry,


Nou hier is blonde paul toch weer :)
Ik zat zo te denken kan die formule ook uit H41, J41, N41? want nu kan ik niet in J41 incl BTW zetten.

oa =VERT.ZOEKEN(B41;'C:\Dropbox\documenten\[Excel omschrijving.xlsm]Blad2'!C$1:D$65536;2;0)

door middel van een formule... ik weet .... u bent GOED!!! :)
maar het is wel dat A41 hierbij betrokken is omdat het vermenigvuldigd moet worden.
gr paul
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan