marcdb

=ALS(A1<>"";TEKST.SAMENVOEGEN("email ";A1);"")

Hé,

Is het zoiets wat je wil?

In de cel die je waar het bericht moet komen daar plaats je de formule. Staat er in cel A1 niets dan blijft het resultaat blanco.

groetjes

Beste,

Dit kan je eventueel oplossen met een macro.

Ik had in kolom A een aantal cellen gekleurd met geel , rood en groen

Sub GekleurdeCellenTellen()

rij = 1: kolom = 1: gekleurd = 0

Do

Cells(rij, kolom).Select

If Selection.Interior.ColorIndex = 6 Then gekleurd = gekleurd + 1

If Selection.Interior.ColorIndex = 4 Then gekleurd = gekleurd + 1

If Selection.Interior.ColorIndex = 46 Then gekleurd = gekleurd + 1

rij = rij + 1

Loop Until rij = 20

Range("a30").Value = gekleurd

End Sub

De eerst volgende lege cel in een kolom selecteren kan je als volgt.

Range("A1").Select '(of een andere cel aan het begin van de kolom

Selection.End(xlDown).Select '(hier kom je op de laatste cel van de reeks)

r = ActiveCell.Row (hiermee bepaal je in welke rij de reeks eindigt of ander gezegd welke cel actief is vb Cel A285

cells(r+1,k).select (nu kom je op de eerst volgende lege cel)

Is het dit wat je zocht?

Mijn vrouw is onthaalmoeder en haar administratie heb ik een beetje geautomatiseerd. En dat werkt goed.

Er zijn mappen gemaakt op naam van de kindjes waar uiteindelijk de opvanggegevens in geplaatst worden vanuit een gezamelijke map.

Hiervoor moet ik telkens er een kind bijkomt of wegvalt ( na twee jaar) een subroutine aanpassen, aanmaken of vewijderen.

Het is de volgend subroutine. De naam van het kind is vervangen door Trezeke Bees om problemen te vermijden

Sub TrezekeBees()

Sheets("Trezeke Bees").Select

ChDir _

"C:\Documents and Settings\Lieve\Mijn documenten\Lieve\Trezeke Bees"

Workbooks.Open Filename:= _

"C:\Documents and Settings\Lieve\Mijn documenten\Lieve\Trezeke Bees\Trezeke Bees.xls"

Windows.Arrange ArrangeStyle:=xlTiled

Windows("Verslag maand.xls").Activate

Sheets("Trezeke Bees").Select

Sheets("Trezeke Bees").Copy Before:=Workbooks("Trezeke Bees.xls").Sheets( _

2)

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

Sheets("Trezeke Bees").Select

Sheets("Trezeke Bees").Move Before:=Sheets(1)

WelkeMaand = Range("H3").Value 'Hier staat de maand vermeld in cel H3

Sheets("Trezeke Bees").Name = WelkeMaand

ActiveSheet.Shapes("Button 1").Select 'deze knop moet weg

Selection.Delete

ActiveWorkbook.Save

ActiveWorkbook.Close

End Sub

In het pad kunt u zien dat de naam van het kind tweemaal voorkomt. Eenmaal voor de map en eenmaal voor het Excell bestand

Graag had ik de naam ingevuld met de inhoud van een cel. Dan kan ik met een lus werken en voor alle kinderen de mappen aanpassen met slechts 1 subroutine in plaats van 6 of 7.

De subs aanpassen is voor mij geen probleem maar als ik morgen doodval dan is al mijn werk voor niets geweest.

Mijn vrouw is niet zo begaan met Macro's. Ze vindt die dingen ongelooflijk goed en handig voor gebruik.

Dank u wel, het werkt perfect!

Hé,

Een bestand opslaan met als naam de naam gelijk aan de inhoud van een cel.

Bijvoorbeeld in cel A1 staat "januari 2013" geschreven. Het bestand moet dan de naam "januari 2013.xls" krijgen en opgeslagen in de juiste map. Het laatste is geen probleem.

Wat heb ik al geprobeerd?

Naam = Range("a1").Value

ChDir "C:\Documents and Settings\Lieve\Mijn documenten\Lieve\archief\2013"

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\Lieve\Mijn documenten\Lieve\archief\2013\[Naam.xls]", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

Het bestand wordt zo opgeslagen als [Naam.xls].xls en dat is de bedoeling niet.

Een blad te selecteren met dezelfde denkwijze is geen probleem.

naam = ActiveCell.Value

If naam = "" Then Sheets("Startblad").Select: BerichtBox: End

Sheets([naam]).Select

Ik hoop dat mijn uitleg een beetje verstaanbaar is.

Wie kan mij helpen?

http://speccy.piriform.com/results/pES522RXg3Dsy8Osk42TaPI

dit is het veronderstel ik

hé,

Ik heb soms, en dat is al vervelend, een probleem om op internet te geraken met de laptop.

En als het zo is dan kan ik het herstellen. Maar het probleem komt telkens weer.

Wat?

In Apparatenbeheer, netwerkadapters komt "Intel® WiFi Link 1000 BGN" in foutmelding. Als het vorige stuurprogramma terug wordt geïnstalleerd dan is het ok. Een nieuwer of beter stuurprogramma wordt niet gevonden.

Bijkomend gaat Explorer dan Offline staan.

Kan iemand mij vertellen hoe dat komt en wat ik eraan kan doen?

Ter info: Het verschijnsel is er sinds we op vakantie waren.

Correctie: het systeem loopt onder wondows 7 en niet onder Vista