Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Saifer
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Подстановка формулы в таблицы с плавающем количеством строк
 
#
22.04.2016 23:20:00
Цитата
kuklp написал:
Нет там такого. В этой строке буквы - наименования столбцов:
"G~,J~,M~,P~,S~,V~,Y~"
Меняйте как Вам надо.
удалил его он должен быть в ячейке EP3
 
Перейти    
Подстановка формулы в таблицы с плавающем количеством строк
 
#
22.04.2016 23:09:26
можно сделать так, чтобы вычисления производились только до столбца с названием "БЮДЖЕТ количество" ?
 
Перейти    
Подстановка формулы в таблицы с плавающем количеством строк
 
#
22.04.2016 23:03:47
Цитата
kuklp написал:
Может так?Код ? 123456Public Sub www()    Dim l&    l = [c1048576].End(xlUp).Row + 1    Range("G" & l & ",J" & l & ",M" & l & ",P" & l & ",S" & l & ",V" & l & ",Y" & l & "").Formula = _    "=SUMPRODUCT(R5C[-2]:R[-1]C[-2],((R5C[-1]:R[-1]C[-1])+(R5C:R[-1]C)+(R5C[1]:R[-1]C[1])))"End Sub
Немного не так считает значения в столбце Е это константа для расчетов суммы вот формула "=SUMPRODUCT(R5C5:R14C5,((R[-10]C:R[-1]C)+(R[-10]C[1]:R[-1]C[1])+(R[-10]C[2]:R[-1]C[2])))" или так =СУММПРОИЗВ($E$5:$E$14;((F5:F14)+(G5:G14)+(H5:H14)))


P.S. количество столбцов, а именно больниц тоже может меняться.
 
Перейти    
Подстановка формулы в таблицы с плавающем количеством строк
 
#
22.04.2016 22:34:01
Прошу поменять название темы на "подстановка формулы в таблицы с плавающем количеством строк"
Спасибо!
 
Перейти    
Подстановка формулы в таблицы с плавающем количеством строк
 
#
22.04.2016 21:54:58
Доброго времени суток, форумчане!
Подскажите, как организовать макрос который будет производить вычисления по формуле сумма произведений в таблице с плавающем количеством строк. (суммапроизведений должна считаться в желтых ячейках) .
Думаю для начала необходимо определить пустую ячейку и в нее вогнать формулу. Но есть проблема в том, что значения могут быть в середине таблицы или в начале.
Спасибо!
 
Перейти    
Авто нумерация ячеек в столбце до первой пустой ячейки
 
#
16.02.2016 19:36:04
Большое спасибо! оказалось проще, чем кажется)
 
Перейти    
Авто нумерация ячеек в столбце до первой пустой ячейки
 
#
14.02.2016 22:28:46
Доброго времени суток, форумчане!
Подскажите, как переделать макрос для автонумерации до первой пустой ячейки в столбце (пришлось делать формулой)
Код
Range("A3").FormulaR1C1 = "=IF(RC[1]>0,ROW()-ROW(R2C),"""")"
     Selection.AutoFill Destination:=Range("A3:A85"), Type:=xlFillDefault
Заранее спасибо!
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
10.02.2016 00:02:28
выкрутился из этой проблемы...
Уважаемые, посмотрите файл и подскажите, что можно упростить.
Заранее спасибо!
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
09.02.2016 21:38:37
буду признателен, если кто нибудь подскажет как использовать addheader.
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
09.02.2016 21:35:46
То есть при выполнение следующего Case в уже созданную книгу (созданную при выполнение 1го Case) данные сохраняться на новый лист?
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
08.02.2016 20:59:15
Подскажите, как можно исправить код так, чтобы лист создавался в уже созданой книге и данные вставлялись соответственно
Код
Select Case Me.ComboBox1.Value
        Case "Приложение №1":
           Dim wrkBook As Workbook
            Dim c As Range, d As Range, iLastRow As Long
            Dim sSubStr As String
            sSubStr = Me.lot.Value
                For Each c In Worksheets("Лоты").Range("D3:D10")
                    If c = sSubStr Then 'значение в textbox1
                        If Not d Is Nothing Then Set d = Union(d, c.EntireRow) Else Set d = c.EntireRow
                    End If
                Next c
        Set wrkBook = Workbooks.Add
        wrkBook.Activate
          Sheets.Add After:=Sheets(Sheets.Count)
             Sheets("Лист1").Select
                Sheets("Лист1").Name = "Приложение№1"
        iLastRow = wrkBook.Sheets("Приложение№1").Cells(Sheets("Приложение№1").Rows.Count, 1).End(xlUp).Row + 1
        If Not d Is Nothing Then d.Copy wrkBook.Sheets("Приложение№1").Cells(iLastRow + 1, 1)
     
        
        Case "Приложение №2":
           
            sSubStr = Me.lot.Value
                For Each c In Worksheets("Лоты").Range("D3:D10")
                    If c = sSubStr Then 'значение в textbox1
                        If Not d Is Nothing Then Set d = Union(d, c.EntireRow) Else Set d = c.EntireRow
                    End If
                Next c
        Set wrkBook = Workbooks.Add
        wrkBook.Activate
          Sheets.Add After:=Sheets(Sheets.Count)
             Sheets("Лист2").Select
                Sheets("Лист2").Name = "Приложение№2"
        iLastRow = wrkBook.Sheets("Приложение№1").Cells(Sheets("Приложение№2").Rows.Count, 1).End(xlUp).Row + 1
        If Not d Is Nothing Then d.Copy wrkBook.Sheets("Приложение№2").Cells(iLastRow + 1, 1)
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
08.02.2016 20:27:30
разобрался сам
Код
Private Sub CommandButton1_Click()

Select Case Me.ComboBox1.Value
        Case "Приложение №1":
           Dim wrkBook As Workbook
            Dim c As Range, d As Range, iLastRow As Long
            Dim sSubStr As String
            sSubStr = Me.lot.Value
                For Each c In Worksheets("Лоты").Range("D3:D10")
                    If c = sSubStr Then 'значение в textbox1
                        If Not d Is Nothing Then Set d = Union(d, c.EntireRow) Else Set d = c.EntireRow
                    End If
                Next c
         Set wrkBook = Workbooks.Open(ST)
        iLastRow = wrkBook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
        If Not d Is Nothing Then d.Copy wrkBook.Sheets("Лист1").Cells(iLastRow + 1, 1)
     
        Set wrkBook = Nothing
  End Select
End Sub
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
07.02.2016 18:20:12
Цитата
Hugo написал:... до копирования добавить строкуset d = [a1]
Да это помогло, но только вставляется цифра 1, а не вся строчка.
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
07.02.2016 17:38:15
макрос должен найти в столбце значение лота, а затем скопировать всю строчку...
вот изначальный код.
Код
Private Const 123= путь к файлу
Sub MyCopy()
Dim c As Range, d As Range, wrkbook As Workbook, iLastRow As Long
    For Each c In Worksheets("Лист1").Range("A1:A500")
   If c.Value = Date Then 'текущая дата
   If Not d Is Nothing Then Set d = Union(d, c.resize(,62) Else Set d = c.resize (,62)
  End If
   End IF
  Next c
  Set wrkbook=Workbooks.Open(123)
      iLastRow=wrkBook.Sheets("Лист1").Cells(Rows.Count,1).End(xlUp).Row
      If Not d Is Nothing Then d.Copy wrkBook.Sheets("Лист1").Cells(ilastRow+1,32)
  wrkbook.Save
  wrkbook.Close
  Set wrkbook=Nothing
End Sub
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 22:52:25
Прошу прощения за мою тупость....
Помогите исправить и больше вас этой, видимо бестолковой темой не побеспокою.. :(
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 22:31:04
Исправил...
Ругается на строчку d.copy
Object variable not set (Error 91)
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 21:54:06
вот что получилось.
и вставил у меня только слово PasteSpecial)
Код
Private Sub CommandButton1_Click()

Select Case Me.ComboBox1.Value
        Case "Приложение №1":
           Dim wrkBook As Workbook
            Dim c As Range, d As Range, iLastRow As Long
                For Each c In Worksheets("Лоты").Range("D3:D10")
                    If c.Value = TextBox1.Value Then 'значение в textbox1
                         Debug.Print c.Resize(, 62).Address
                    End If
                Next c
                  
                      
         Set wrkBook = Workbooks.Open(ST)
        
        'With ThisWorkbook.Sheets("Лист1")
        iLastRow = wrkBook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
         d.Copy wrkBook.Sheets("Лист1").Cells(iLastRow + 1, 32).PasteSpecial
           
   
                    wrkBook.Save
                    wrkBook.Close
                    Set wrkBook = Nothing
 
  End Select
End Sub
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 21:42:40
заменить этим 12 строку?
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 21:31:12
изначально код был такой
вот такой код у меня получился.
Теперь ругается на d.Copy wrkBook.Sheets("Лист1").Cells(ilastRow+1,32) (Данная команда неприменима для не связанных объектов)
Код
Private Const 123= путь к файлу
Sub MyCopy()
Dim c As Range, d As Range, wrkbook As Workbook, iLastRow As Long
    For Each c In Worksheets("Лист1").Range("A1:A500")
   If c.Value = Date Then 'текущая дата
   If Not d Is Nothing Then Set d = Union(d, c.resize(,62) Else Set d = c.resize (,62)
  End If
   End IF
  Next c
  Set wrkbook=Workbooks.Open(123)
      iLastRow=wrkBook.Sheets("Лист1").Cells(Rows.Count,1).End(xlUp).Row
      If Not d Is Nothing Then d.Copy wrkBook.Sheets("Лист1").Cells(ilastRow+1,32)
  wrkbook.Save
  wrkbook.Close
  Set wrkbook=Nothing
End Sub
Изменено: Saifer - 06.02.2016 21:51:15
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 21:25:16
просто не знал как заменить эту строчку, чтобы скопировалось в А2 новой книги.
Была вот такая идея.
Возможно есть более простой способ скопировать и вставить значение, но увы ума не хватает.
Лист1 это в новой книге
Код
set wrkBook = Workbooks.Open(ST)
ilastRow = wrkBook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
If Not d Is Nothing Then d.Copy wrkBook.Sheets("Лист1").Cells(ilastRow + 1, 1).Offset(, 10)
Изменено: Saifer - 06.02.2016 21:25:32
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 21:09:01
исправил файл
 
Перейти    
Копирование строки по условию TextBox: ошибка
 
#
06.02.2016 20:39:32
Доброго времени суток!
Продолжаю тему копирования...
Пытался передал код под поиск значений вводимых через TextBox.
Но при открытие книги возникает ошибка в строке With ThisWorkbook.Sheets("Лист1") ошибка range.
Гуру этого форума, подскажите как это исправить.
P.S. поиск идет по столбцу лоты в книге рабочая версия и копирует значения в книгу 1 столбце 1.
Спасибо!
Код
Private Sub CommandButton1_Click()
 Select Case Me.ComboBox1.Value
        Case "Приложение №1":
           Dim wrkBook As Workbook
            Dim c As Range, d As Range, iLastRow As Long
                For Each c In Worksheets("Лоты").Range("D3:D10")
                    If c.Value = TextBox1.Value Then 'значение в textbox1
                         Debug.Print c.Resize(, 62).Address
                    End If
                Next c
                   
                       
         Set wrkBook = Workbooks.Open(ST)
         Stop
        With ThisWorkbook.Sheets("Лист1")
         iLastRow = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
            d.Copy .Sheets("Лист1").Cells(iLastRow + 1, 1)
            
    End With
                    wrkBook.Save
                    wrkBook.Close
                    Set wrkBook = Nothing
  
  End Select
End Sub

Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]
 
Перейти    
Ошибка при запуске формы, application defined or object defined error
 
#
06.02.2016 11:02:57
Спасибо помогло,  только пришлось переписать эту строчку полностью  
 
Перейти    
Ошибка при запуске формы, application defined or object defined error
 
#
05.02.2016 22:28:58
Доброго времени суток!
Пожалуйста, подскажите в чем может быть ошибка при запуске формы.
Кнопку на листе 6 выключил.
Спасибо!
 
Перейти    
Доработать таблицу, vba+сводная таблица
 
#
11.10.2015 21:46:14
Большое спасибо, за выполненную работу.
 
Перейти    
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
#
11.10.2015 21:45:45
Заказал работу у Все_просто, остался очень доволен выполненной работой, всегда на связи, много интересных идей автоматизирующих работу предложил и реализовал. Разжевал каждую строчку (особенно было полезно смотреть как создается код).
Приятное вежливое общение.
Плюс получил обучающий курс)
Рекомендую.  
 
Перейти    
Доработать таблицу, vba+сводная таблица
 
#
10.10.2015 23:28:40
Основная тема тут http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=69809&TITLE_SEO=69809-poisk-znac...

вот файл https://cloud.mail.ru/public/N7TB/tmDhQY24C
Нужно на выходе получить сводную на листе сводная пример.
В примере есть макросы, думаю они пригодятся, только их не могу подогнать под себя.

Необходимо сделать до 10.00 11.10.2015г.
Изменено: Saifer - 10.10.2015 23:36:15
 
Перейти    
Поиск значений в таблице и подстановка в сводный лист
 
#
10.10.2015 10:00:59
Редизайнер таблиц.
Подскажите какой макрос моет перевести таблицу размером 496 столбцов и 872 строки в плоскую.
Из представленных макросов на сайте не один не подходитю
Спасибо!
 
Перейти    
Поиск значений в таблице и подстановка в сводный лист
 
#
10.10.2015 01:04:13
нужно поправить макрос, так чтобы он все данные перевел в двумерный массив
 
Перейти    
Поиск значений в таблице и подстановка в сводный лист
 
#
10.10.2015 00:58:03
вот ссылка на файлик https://cloud.mail.ru/public/3D7M/8bWe8mcRS
Пытался в макросе разобраться самостоятельно, но что-то никак не выходит.
Помогите.
 
Перейти    
Страницы: 1 2 3 След.
Наверх