В таблице "Приход" после сохранения и повторного входа пропадает заливка ячееек и целых сток, формат даты из дд.мм.гг превращаетсяв число, пропадают границы. Глюк повторяется ежедневно при открытии таблицы. после исправления и повторного сохранения файла при очередном открытии пропадает в других ячейках и сторках. Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.
В таблице "Приход" после сохранения и повторного входа пропадает заливка ячееек и целых сток, формат даты из дд.мм.гг превращаетсяв число, пропадают границы. Глюк повторяется ежедневно при открытии таблицы. после исправления и повторного сохранения файла при очередном открытии пропадает в других ячейках и сторках. Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.karponen
Александр
Сообщение отредактировал karponen - Понедельник, 17.11.2014, 14:34
Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.
Нужно уничтожить макрос, если прав АйТишник или уничтожить АйТишника, если он не прав. Но до этого почитать Правила форума, возможно обойдется без крайних мер.
Наш специалист по IT утверждает, что во восем винват макрос TextBox1_Click.
Нужно уничтожить макрос, если прав АйТишник или уничтожить АйТишника, если он не прав. Но до этого почитать Правила форума, возможно обойдется без крайних мер. ShAM
ShAM, спасибо за ответ. если не сложно в двух словах, что я делаю не так?. правила прочитал, в темах поискал, не нашел ответа на мой вопрос, создал новую тему. правда не смог прикрепить файл.
ShAM, спасибо за ответ. если не сложно в двух словах, что я делаю не так?. правила прочитал, в темах поискал, не нашел ответа на мой вопрос, создал новую тему. правда не смог прикрепить файл.karponen
Дык, это же самое главное. Без файла, как узнать, что там и как и что макрос творит. Только если к Вам на работу подъехать. Штатные экстрасенсы сайта в отпуске
Дык, это же самое главное. Без файла, как узнать, что там и как и что макрос творит. Только если к Вам на работу подъехать. Штатные экстрасенсы сайта в отпуске ShAM
ShAM, беда в том, что моя таблица 1,63 Мб, а у вас ограниечение, поэтому мне ее и не прикрепить. Как поступить в этом случае? вкладываю код макроса на который грешит нашь АйТишник. Он все макросы недолюбливает и называет их вирусами. Может проблема действительно в нем (в макросе)? Sub TextBox1_Click() myPath = "C:\Users\a.karpov.INCOTEC\Desktop\страхование\старахование шаблон.xls" 'myPath = "D:\Anton_Data\Desktop\Александр lomagin@nwinco.spb.ru skype karponen72\старахование шаблон.xls" Dim myRange As Range, destB As Workbook
Set myRange = Selection If myRange.Rows.Count >= 1 Then Set destB = Workbooks.Open(myPath) destR = 15 For Each myR In myRange.Rows DoEvents destR = destR + 1 destB.Sheets(1).Rows(destR + 1 & ":" & destR + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove destB.Sheets(1).Range("A" & destR) = shPRIHOD.Range("G" & myR.Row) destB.Sheets(1).Range("B" & destR) = shPRIHOD.Range("H" & myR.Row) If CDate(shPRIHOD.Range("D" & myR.Row)) < CDate(destB.Sheets(1).Range("G9")) Then destB.Sheets(1).Range("D" & destR) = Format(destB.Sheets(1).Range("G9"), "dd.mm.yyyy") Else destB.Sheets(1).Range("D" & destR) = Format(shPRIHOD.Range("D" & myR.Row), "dd.mm.yyyy") End If destB.Sheets(1).Range("E" & destR) = CDate(destB.Sheets(1).Range("D" & destR)) + destB.Sheets(2).Range("B1") If shPRIHOD.Range("M" & myR.Row) = "СПб" Then destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Санкт-Петербург" ElseIf shPRIHOD.Range("M" & myR.Row) = "Москва" Then destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Москва-Санкт-Петербург" End If j = 5 Do DoEvents j = j + 1 If destB.Sheets(2).Range("C" & j) = "" Then Exit Do If InStr(1, shPRIHOD.Range("E" & myR.Row), destB.Sheets(2).Range("C" & j)) > 0 Then destB.Sheets(1).Range("G" & destR) = destB.Sheets(2).Range("A" & j) destB.Sheets(1).Range("H" & destR) = destB.Sheets(2).Range("B" & j) Exit Do End If Loop Next End If destB.Sheets(1).Rows(destR + 1 & ":" & destR + 2).Delete destB.Sheets(1).Copy destB.Close False End Sub
ShAM, беда в том, что моя таблица 1,63 Мб, а у вас ограниечение, поэтому мне ее и не прикрепить. Как поступить в этом случае? вкладываю код макроса на который грешит нашь АйТишник. Он все макросы недолюбливает и называет их вирусами. Может проблема действительно в нем (в макросе)? Sub TextBox1_Click() myPath = "C:\Users\a.karpov.INCOTEC\Desktop\страхование\старахование шаблон.xls" 'myPath = "D:\Anton_Data\Desktop\Александр lomagin@nwinco.spb.ru skype karponen72\старахование шаблон.xls" Dim myRange As Range, destB As Workbook
Set myRange = Selection If myRange.Rows.Count >= 1 Then Set destB = Workbooks.Open(myPath) destR = 15 For Each myR In myRange.Rows DoEvents destR = destR + 1 destB.Sheets(1).Rows(destR + 1 & ":" & destR + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove destB.Sheets(1).Range("A" & destR) = shPRIHOD.Range("G" & myR.Row) destB.Sheets(1).Range("B" & destR) = shPRIHOD.Range("H" & myR.Row) If CDate(shPRIHOD.Range("D" & myR.Row)) < CDate(destB.Sheets(1).Range("G9")) Then destB.Sheets(1).Range("D" & destR) = Format(destB.Sheets(1).Range("G9"), "dd.mm.yyyy") Else destB.Sheets(1).Range("D" & destR) = Format(shPRIHOD.Range("D" & myR.Row), "dd.mm.yyyy") End If destB.Sheets(1).Range("E" & destR) = CDate(destB.Sheets(1).Range("D" & destR)) + destB.Sheets(2).Range("B1") If shPRIHOD.Range("M" & myR.Row) = "СПб" Then destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Санкт-Петербург" ElseIf shPRIHOD.Range("M" & myR.Row) = "Москва" Then destB.Sheets(1).Range("F" & destR) = "Санкт-Петербург - Москва-Санкт-Петербург" End If j = 5 Do DoEvents j = j + 1 If destB.Sheets(2).Range("C" & j) = "" Then Exit Do If InStr(1, shPRIHOD.Range("E" & myR.Row), destB.Sheets(2).Range("C" & j)) > 0 Then destB.Sheets(1).Range("G" & destR) = destB.Sheets(2).Range("A" & j) destB.Sheets(1).Range("H" & destR) = destB.Sheets(2).Range("B" & j) Exit Do End If Loop Next End If destB.Sheets(1).Rows(destR + 1 & ":" & destR + 2).Delete destB.Sheets(1).Copy destB.Close False End Subkarponen
Александр
Сообщение отредактировал karponen - Среда, 19.11.2014, 12:40