Point til Kabbak

tak ;-))

Velbekommen, og lige et spørgsmål, hvis det er ok, kan man i modulet fortælle at den skal se i kolonne E for kryds og hente data i kolonne A, mens der i de mellemlæggende kolonner er data i.
Jeg skal nok give point for svar ;-))

Hej Kabbak, jeg fandt ud af det, ændrede bare i denne: ----If UCase(Fdata(I, 4)) = "X" Then----- ændrede 2 til 4.

tak for hjælpen!

Public Function FindX(DataKolonne As Range, X_kolonne As Range)
Dim Data As String, Fdata As Variant, Xdata As Variant
Application.Volatile
Fdata = DataKolonne
Xdata = X_kolonne
For I = 1 To UBound(Fdata)
If UCase(Xdata(I, 1)) = "X" Then
Data = Data & Fdata(I, 1) & Chr(44)
End If
Next
FindX = Left(Data, Len(Data) - 1)
End Function


husk at makere mit navn og så accepter

Hej kabbak, jeg har lavet en findx() og en find0() kan man adskille disse med et komma når de står i samme formel som dette:
findx()&find0()  -dette skal gøres for at findx skal regnes sammen men det skal find0 ikke.
PFT Mcblach

findx()&"," & find0()

Tak, har givet dig 15 point (tro jeg nok ;-)), det funger jo, så det er dejligt, 1000 tak, igen.