Hulp verticaal zoeken met VBA

Status
Niet open voor verdere reacties.
Graag op de knop "Reageer op bericht" drukken ipv te quoten.

Wat voor foutmelding krijg je?

Helaas niet privé.
Plaats de voorbeeldbestanden nog eens zoals in je eerste post.
Zet daar de gegevens eens op dezelfde rij zoals je begint in beide originele werkboeken.

Ik kan op dit moment verder niets zinnigs bedenken.
 
HSV zei:
Graag op de knop "Reageer op bericht" drukken ipv te quoten.

Wat voor foutmelding krijg je?

Helaas niet privé.
Plaats de voorbeeldbestanden nog eens zoals in je eerste post.
Zet daar de gegevens eens op dezelfde rij zoals je begint in beide originele werkboeken.

Ik kan op dit moment verder niets zinnigs bedenken.
Klik om te vergroten...


Book1 heet nu "Dashboard West .xlsm" - Sheet1 heet "Projectenlijst"
Book2 heet nu "Database Team Nawien West.xlsm" - Sheet1 heet "Database"

de test bestanden werken helemaal goed.

als ik overzet in mn echte bestand krijg die foutmelding

Wat er moet gebeuren

Uit book2
vanaf kolomB en regel 12 overnemen naar book1 maar dan vanaf kolom X regel 12
 

Bijlagen

  • book1.xlsm
    28,7 KB · Weergaven: 20
  • book2.xlsm
    18,7 KB · Weergaven: 15
Loopt als een tierelier hier.
Of heb je dezelfde bestanden geplaatst als in je openingspost?

Welke melding krijg je?
 
Hi Harry,

Daar ben ik weer.

Ik ben de aangepaste bestanden toegevoegd die echt wilt gaan gebruiken (dat ander bestand waar ik voorheen alleen maar foutmelding op kreeg, heb ik weggegooid).

Wat gebeurd er na dat ik het knopje "uploaden" klik.

- mijn tabel verdwijnt uit "MyDashSW"
- de kopgegevens uit database worden ook meegenomen naar "mydashsw" (op regel 12) wat niet mag.
 

Bijlagen

  • DatabaseSW.xlsm
    20,5 KB · Weergaven: 19
  • MyDashSW.xlsm
    28 KB · Weergaven: 21
Graag bij het reageren op mijn reacties de knop "reageer op bericht" drukken.
Links boven of links onder.

Code: 
Sub Upload()
Application.ScreenUpdating = False
' declarations
Dim sv, sq, r, i As Long, j As Long, book2 As Workbook
' start
Set book2 = Workbooks.Open("C:\Users\762936\Desktop\Test bestanden\Test Doc\DatabaseSW.xlsm", 3).Sheets(1)
  With ThisWorkbook.Sheets("Projectenlijst").ListObjects(1).DataBodyRange
    sv = .Value
    sq = book2.Sheets(1).Cells(10, 1).CurrentRegion
   book2.Sheets(1).Cells(12, 1).CurrentRegion.Columns(1).Value = book2.Sheets(1).Cells(12, 1).CurrentRegion.Columns(1).Value
    For i = 1 To UBound(sv)
     r = Application.Match(sv(i, 1), book2.Sheets(1).Columns(1), 0)
        If IsNumeric(r) Then
          For j = 2 To UBound(sq, 2)
            sv(i, j + 22) = sq(r - 9, j)
          Next j
        End If
    Next i
 .Value = sv
 End With
 book2.Close 0
MsgBox "Done"
End Sub
 
Hi,

ik op dat "reageer" knopje geklikt.

ik krijg de volgende foutmelding op de onderstaande regel....

Set book2 = Workbooks.Open("C:\Users\762936\Desktop\Test bestanden\Test Doc\DatabaseSW.xlsm", 3).Sheets(1)
 
Is het:
1: de juiste mappenstructuur?
2: een .xlsm of .xlsx extensie?
 
1. mappenstructuur gecheckt en opnieuw ingevoerd
2. extensie ook gecheckt en het is een .xlsm
 
Mijn fout;

Verwijder het rode gedeelte.
Code: 
Set book2 = Workbooks.Open("C:\Users\762936\Desktop\Test bestanden\Test Doc\DatabaseSW.xlsm", 3)[COLOR=#ff0000].Sheets(1)[/COLOR]
 
yes!

het doet t. nu ga ik verder uitwerken.

ik hou je op de hoogte.

super tnx Harry :)

gr
Nawien
 
Graag gedaan Nawien.
 
Hi Harry,

met behulp van jou ben ik nu bijna klaar met mn tool'tje, alleen kom een issue tegen en dat is namelijk,
in een kolom in mn database bestand heb ik een formule, maar bij het onvernemen naar mn dash bestand neemt ie niet over als formule.
weet jij hoe ik deze kan oplossen?

gr
Nawien
 
Plaats het bestand eens met de formule.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan