Sub Email()
Dim hodnota As String
Dim i As Long
With List1
For i = 5 To .Cells(Rows.Count, 1).End(xlUp).Row
hodnota = .Cells(i, 2)
If hodnota <> Empty Then
.Hyperlinks.Add .Cells(i, 2), "mailto:" & hodnota
End If
Next i
End With
End Subcitovat
Zaslal/a pepča 7.4.2024 16:36
Ahojky.
Již dva dny se snažím o to, aby byl výsledek vzorce uložen jako E mailová adresa. Přikládám jednoduchý vzor. Ve skutečnosti se jedná asi o 100 sloupců a 300 řádků. Nemohu použít filtr v listu vzor, ale mohu filtr použít v listu 2. List vzor se stále mění doplňováním a mazáním jmen. Ve sloupci E je výsledek jaký bych požadoval ve sloupci B dosažen vzorcem ve sloupci B.
Bohužel jsem nenašel formát buňky jako E mail adresa.
Děkuji za každou odpověď.
Pepča
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.