HASTER... Sammenligne 2 kolonner og erstatte fra tilhørende nabo kolon

Var det muligt du kunne uploade filen? - eller er der 2?

jo ... hvor er det hen man kan uploade filer

Der er kun en fil

Du kan hente den fil på:

http://telia-bizz.dk/branche2.xlsx

Ok - prøver at se på det..

tak

Spørgsmål: Den fil i får hver dag - den ligner vel så Ark1?
Hvilket navn denne fil have?

VBA koden skal ligge i det , der p.t. udgør Ark2?

kundeinfo1
kundeinfo2
.
.
.
.

kundeinfo7

send et svar så jeg kan give dig point

Det er vist lidt for tidligt at give point :-)

he he okay

Jeg fik vist ikke rigtig svar på #6

Navnene kundeinfo1 osv er de fortløbende i "det uendelige"?

Ja den ligner Ark1 og filen hedder "kundeinfo"

Hej igen

Det eneste jeg mangler er identifikationen af den daglige fil, men det kræver at jeg ved, hvad den hedder!

Du har nævnt kundeinfo1, kundeinfo2.. kundeinfo7 i #7 - fortsætter den nummerering og hvor længe?

I #12 hedder filen kundeinfo.

Jeg kan ikke komme videre på det grundlag.

den forsætter op til 14 gange:

kundeinfo1
.
.
.
kundeinfo14

Hvad så herefter - begynder forfra med 1 - 14?
Hvad sker der med de 14 filer herefter?

Så er opgaven færdig ... der kommer ikke flere filer .... Filerne ligger bare på hd herefter

Ok - fortsætter

Hvis du sender en mail - @-adresse under min profil - så sender jeg filen m.m.


Rem ThisWorkbook
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$B$1" Then
        Ark1.hentHovedKategori
    End If
End Sub


Rem Branche hoved kategori
Rem ======================
Dim sti As String

Dim rådataFil As Object
Dim rådataFilNavn As String
Dim antalRækker As Long
Dim ræk As Long, branche As String, hovedKategori As String, filNr As Integer

Dim systemFil As Object
Public Sub hentHovedKategori()
On Error GoTo fejl

    sti = ActiveWorkbook.Path & "\"
    Set systemFil = ActiveWorkbook
   
    filNr = tælAntalKundeInfoFiler
   
    If filNr >= 1 And filNr <= 14 Then
   
        rådataFilNavn = "kundeinfo" & filNr & ".xlsx"
       
        Set rådataFil = CreateObject("Excel.Application")
        rådataFil.Workbooks.Open sti & rådataFilNavn
       
        rådataFil.Sheets("Rådata").Activate
        antalRækker = rådataFil.ActiveCell.SpecialCells(xlLastCell).Row
       
        ScreenUpdating = False
       
        For ræk = 2 To antalRækker - 1
            branche = rådataFil.ActiveSheet.Range("B" & ræk)
            rådataFil.ActiveSheet.Range("C" & ræk) = findHovedkategori(branche)
        Next ræk
       
        rådataFil.ActiveWorkbook.Save
        rådataFil.Application.Quit
        Set rådataFil = Nothing
       
        MsgBox "Hovedkategori er indsat"
    Else
        MsgBox "FilNr er identificeret til: filnr"
    End If
    Exit Sub
   
fejl:
    On Error Resume Next
    rådataFil.Application.Quit
    Set rådataFil = Nothing
    MsgBox "Der opstod fejl!"
End Sub
Private Function findHovedkategori(branche)
Dim ark, område As String
    Set ark = systemFil.Sheets(1)
    område = "A:A"
   
    With ark.Range(område)
        Set c = .Find(branche, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findHovedkategori = ark.Range("B" & c.Row)
        Else
            findHovedkategori = ""
        End If
    End With
End Function
Private Function tælAntalKundeInfoFiler()
Dim fs, f, f1, fc, fNavn As String, ext As String, antalFiler As Integer
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti)
    Set fc = f.Files
    antalFiler = 0
   
    For Each f1 In fc
        filNavn = LCase(f1.Name)
       
        If InStr(filNavn, "kundeinfo") = 1 Then
            antalFiler = antalFiler + 1
        End If
    Next
   
    tælAntalKundeInfoFiler = antalFiler
End Function

Filerne er sendt..