19. oktober 2015 - 14:54Der er
4 kommentarer og 1 løsning
Betinget kopering VBA
Hej jeg har 2 faner en med et rapport jeg løbende opdatere og andet total fane.
Fanen med rapporten som hedder tilgang indeholder i C4:N4 dato og i C30:N30 tal som skal kopieres over.
Fanen total har dato i D2:ND2 Og rækken data skal kopieres over i række D69:ND69
Jeg mangler et vba kode som søger dato fra fanen tilgang i fanen total hvis den finder dato skal tilsvarende tal under det dato kopieres over i række 69 under det samme dato.
Rem *** TOTAL *** Const totalArkNavn = "Total" Const totalDatoer = "D2:ND2" Const totalTotalerStart = "D30" Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$4" Then Cancel = True kopierTilTotal End If End Sub Private Sub kopierTilTotal() Dim tilgangKolonne As Integer, tilgangTotal As Long Dim tilgangDato As Date Dim totalKolonne As Integer Application.ScreenUpdating = False
For Each cc In Range(tilgangDatoer).Cells tilgangDato = cc tilgangTotal = cc.Offset(26, 0)
kopier tilgangDato, tilgangTotal Next End Sub Private Sub kopier(dato, total) Dim kol As Integer Sheets(totalArkNavn).Activate kol = DateDiff("d", "01-01-" & CStr(Year(Now)), dato) ActiveSheet.Range(totalTotalerStart).Offset(0, kol) = total Sheets(tilgangArkNavn).Activate End Sub
Accept/Afvisning af svar udbedes - så tråden kan lukkes.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.