Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 79 След.
макрос копирование только формул с заданным количеством раз
 
Добрый.
Ничего не понял, но сделал.
Код
Sub НазваниеМакроса()
For Each a In Selection.SpecialCells(xlCellTypeFormulas).Areas
a.Copy a.Offset(, 1).Resize(, InputBox("", "", 1))
Next
End Sub
О погоде
 
Докладаю, в Питере + 3 (плюс три)!
О погоде
 
Перекличка:
Пользовательская функция VBA "Определения скрыта ли строка", базовый VBA
 
Код
Function определятель_1(rrr As Range) As Integer
определятель_1 = CInt(Rows(rrr.Row).EntireRow.Hidden) + 2
End Function
Копирование дат, в формате даты
 
Здравствуйте.
Код
Sub www()
[c8:c11] = CDate(Split([c3], " ")(2))
End Sub
Изменено: k61 - 3 Ноя 2019 06:28:54
О музыке.
 
27 сентября.
День рождения:
Ларри Уилльямс (Larry Williams) [Mud Morganfield]
https://www.youtube.com/watch?v=mF4Ic41M2m8
О музыке.
 
20 сентября.
День рождения:
Майкл Олдройд (Michael Oldroyd) [The Mick Rogers Band, Manfred Mann's Earth Band]
https://www.youtube.com/watch?v=AEZSCZ-0vww
Изменено: k61 - 20 Сен 2019 14:30:25
HB
 
Спасибо друзья. :oops:
HB
 
Спасибо всем!
О музыке.
 
17 сентября.
День рождения:
Юджин Макдаффи (Eugene McDuffy) ["Brother" Jack McDuff]
https://www.youtube.com/watch?v=NUdWxhhy_MY
О погоде
 
Якутск. Днём +11, ночью +3.
Центральное отопление включили.
Арбузы по 60 рублей за кг.
О музыке.
 
10 сентября.
День рождения:
Чи Айадо (Chie Ayado)
https://www.youtube.com/watch?v=nFjd_LucIQM
О музыке.
 
29 августа.
День рождения:
Крис Бёрд (Chris Beard)
https://www.youtube.com/watch?v=Q-wKVj7_PkQ&list=PLSV2_tP8IRi6g83JjjAtqRYPhD4R99y9Y
Как перенести отдельные блоки одного столбца в разные столбцы?
 
Цитата
Smurov написал:
правильно ли я понимаю
нет.
О музыке.
 
В дополнение к сообщению #23.
Sarah Jane Morris -  Coal Train
https://www.youtube.com/watch?v=LJHoLB7oY5I
Как перенести отдельные блоки одного столбца в разные столбцы?
 
Код
Sub Отевт_на_Вопорс() 'в код листа 1
With Sheets(2)
i = 0
For Each rr In Columns(1).SpecialCells(2).Areas
rr.Copy Destination:=Sheets(2).Cells(2, 3).Offset(, i): i = i + 1
Next
End With
Beep
End Sub
Суммирование по двум критериям с помощью VBA
 
Код
Sh_Klientu.Range("C2").Resize(UBound(dx) + 1).Value = Application.Transpose(dx)
SelectionChange. Кликая на любую яцейку в диапазоне вызывать процедуру
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(2, Target.Column + 1) <> "¹" Or Target.Count > 1 Then Exit Sub
r = Cells(Rows.Count, Target.Column + 1).End(xlUp).Row
If Not Intersect(Target, Range(Cells(3, Target.Column), Cells(r, Target.Column))) Is Nothing Then
MsgBox "Bingo!"
End If
End Sub
О музыке.
 
27 июля.
День рождения:
Альберта Адамс (Roberta Louise Osborn) Alberta Adams
(запись в возрасте 91 год ).
https://www.youtube.com/watch?v=bPxirgxmCto
О музыке.
 
17 июля.
День рождения:
Абрахам Лабориэль Лопез (Abraham Laboriel Lopez)
https://www.youtube.com/watch?v=8KU5keZlQ6k
О музыке.
 
12 июля.
День рождения:
Валерий Александрович Кипелов
https://www.youtube.com/watch?v=eOqiW8jD3bI
О музыке.
 
16 апреля.
День рождения:
Мэри Изобел Кэтрин Бернадетт О’Брайен (Mary Isobel Catherine Bernadette O’Brien) [Dusty Springfield}
https://www.youtube.com/watch?v=qKV9bK-CBXo
О музыке.
 
30 марта
День рождения:
Роберт Дэвид Хоул (Robert David Hole)
https://www.youtube.com/watch?v=SThSL3OJ1Eo
О погоде
 
Скоро радость закончится.
Вот в начале марта бабу слепил (контрольную). Была хороша собой, а теперь худо ей уже...
О музыке.
 
29 марта.
День рождения:
Реджинальд Кеннет Дуайт (Reginald Kenneth Dwight) [Sir Elton Hercules John]
https://www.youtube.com/watch?v=-6K0HAOvQHk
Вынести значение артикула в отдельную графу
 
Цитата
m.kochukov написал:
просто артикулы которые с английскими
Например?
Вынести значение артикула в отдельную графу
 
В код листа:
Код
Sub www()
For Each x In Columns(1).SpecialCells(2)
xx = Split(x, " ")(UBound(Split(x, " ")))
  If IsNumeric(Left(xx, 1)) Then x.Offset(, 1) = xx:   x.Value = Replace(x, xx, "")
Next x
End Sub
Удаление строк по условию (vba), Помогите вылечить макрос. Сломал уже голову.
 
Уборка мусора 8-го числа не работает по всей стране.
О погоде
 
Якутск. Потеплело, -19 вечером.
О музыке.
 
29 февраля (чем о чём родители думали?).
День рождения:
Жерар Дармон (Gerard Darmon)
https://www.youtube.com/watch?v=n_GNnd4kJyU
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 79 След.
Наверх