@jaaa10:

czy jest mozliwe zebym napisal makro ktore po Ustawienia na konkretna komorke sprawi ze komorka będzie migać a później po ponownym otwarciu excela komórki które migały będą dalej migac ?


Nie jest możliwe. Najpierw się naucz pisać po Polsku.
http://Mam pytanko #vba #makro #excel jeśli chce stworzyć makro w excelu w którym pod dana listę np produktów będzie kategoria miasta i przy mieście będę mógł użyć listy miast gdzie ten produkt występuje. Poczym zaznaczę np przy jednym produkcie np Gdańsk, Warszawa, przy innym ze tylko Poznań. Czy można zrobić to przez ListBox ? Dzięki za podpowiedzi #petle
@jaaa10: za pomocą poprawności danych można bez problemu zrobić listy zależne, czyli po wybraniu jednej wartości odpowiednio zmieniana jest druga. Szczegóły rozwiązania zależą od tego jak masz ułożone dane wejściowe - produkty i przypisane do nich miasta.
@lovalu:

w kodzie arkusza wstaw sobie wykonywanie jakimś eventem (worksheetchange albo coś podobnego) takiego kodu:

n = 10
Do Until IsEmpty(Cells(n, 4).Value)
Cells(n, 5).Value = Cells(n, 4).Value * Cells(5, 4).Value
n = n + 1
Loop
Robie jesienne #rozdajo
Wszyscy biorą udział, losowanie jutro wieczorem. Wysyłka na moj koszt.
- magazyn sprawny marketing nr 1/1 2017
- poradnik klienta usług finansowych
- etui na dowod rejestracyjny
- kupony do #carrefour ważne do 10.10 na nowe garnki
- kupony do #makro - urodzinowa punktomania
- kaloryczna czekoladka TVNu
- krówka mleczna
Pobierz m.....s - Robie jesienne #rozdajo
Wszyscy biorą udział, losowanie jutro wieczorem. Wy...
źródło: comment_eM0nZ3SwkxVVw03NoJ5UToJ78COKz3k0.jpg
Cześć komputerowe świry.

Potrzebuje zmodyfikować makro pod worda, które:
Otwiera plik z rozszerzeniem FAX, edytuje go wg. wzorca i zapisuje do pdf. Potem otwiera następny z folderu i tak do ostatniego pliku.
W tej chwili mam coś takiego, jak poniżej, ale działa tylko do 50 plików (zmienia się nazwa pliku a makro jest skopiowane jakby 50 razy)

="">'
' WZ_automatyczny Makro
' WZ_automatyczny
'
ChangeFileOpenDirectory _
"C:\DOKUMENTY\GN\GOTOWE\"
Documents.Open filename:="""dok (1).FAX""", ConfirmConversions:=False, _
@bdr90: Rozwinięty pomysł kolegi @ShortyLookMean, sprawdź czy zadziała, bo nie sprawdzałem.

Sub WZ_automatyczny()
Dim inputPath As String, outputPath As String, file As String

inputPath = "C:\DOKUMENTY\GN\GOTOWE\"
outputPath = "C:\DOKUMENTY\GN\Dokumenty WZ\"
file = Dir(inputPath & "\*.fax")

Do While Len(file)
Documents.Open FileName:=inputPath & file, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
Encoding:=852
Selection.WholeStory
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
Else
.NameFarEast