Премини към съдържанието
  • Добре дошли!

    Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

    Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

     

Препоръчан отговор


Здравейте,

имам нужда от помощ. За да имоприрам  продажбите в счетоводна програма е необходимо да добавя по един ред над всеки номер на документа.

 Всеки документ съдържа различен брой редове, не мога да намеря формула с която да се справя със задачата.

Прилагам таблицата, моля за съвет.  

СЧЕТОВОДСТВО стокови.xlsx

Линк към този отговор
Сподели в други сайтове
преди 2 часа, PChervenkova написа:

Здравейте,

имам нужда от помощ. За да имоприрам  продажбите в счетоводна програма е необходимо да добавя по един ред над всеки номер на документа.

 Всеки документ съдържа различен брой редове, не мога да намеря формула с която да се справя със задачата.

Прилагам таблицата, моля за съвет.  

Sub MacroInsertRows()
 Dim I As Long
 I = 2
 Do While Cells(I, 1).Value <> ""
  Rows(I & ":" & I).Insert Shift:=xlDown
  I = I + 2
 Loop
End Sub

Този макрос трябва да свърши работа.

Линк към този отговор
Сподели в други сайтове
преди 26 минути, TRN написа:

Sub MacroInsertRows()
 Dim I As Long
 I = 2
 Do While Cells(I, 1).Value <> ""
  Rows(I & ":" & I).Insert Shift:=xlDown
  I = I + 2
 Loop
End Sub

Този макрос трябва да свърши работа.

Благодаря, веднага ще го изпробвам. 

преди 6 минути, PChervenkova написа:

Благодаря, веднага ще го изпробвам. 

Здравейте, вмъкна редове, но през един ред.

Проблема е, че в таблицата  един документ, например стокова разписка №17 има три реда, следващата №18  има два реда. 

Дали може да се зададе команда да разпознава номера на документа от съответния ред и над него да вмъква нов.

Линк към този отговор
Сподели в други сайтове
преди 39 минути, PChervenkova написа:

Благодаря, веднага ще го изпробвам. 

Здравейте, вмъкна редове, но през един ред.

Проблема е, че в таблицата  един документ, например стокова разписка №17 има три реда, следващата №18  има два реда. 

Дали може да се зададе команда да разпознава номера на документа от съответния ред и над него да вмъква нов.

Искаш да кажеш, че над всеки нов номер на документ трябва да има празен ред. Ако е така, не е уточнено в условието, или аз не съм го разбрал както трябва.

Тогава виж този

Sub MacroInsertRows()
 Dim I As Long
 Dim NumDocu As Integer
 NumDocu = 0
 I = 2
 Do While Cells(I, 1).Value <> ""
  If Cells(I, 1).Value <> NumDocu Then
   NumDocu = Cells(I, 1).Value
   Rows(I & ":" & I).Insert Shift:=xlDown
  End If
  I = I + 1
 Loop
End Sub

Линк към този отговор
Сподели в други сайтове
преди 27 минути, TRN написа:

Искаш да кажеш, че над всеки нов номер на документ трябва да има празен ред. Ако е така, не е уточнено в условието, или аз не съм го разбрал както трябва.

Тогава виж този

Sub MacroInsertRows()
 Dim I As Long
 Dim NumDocu As Integer
 NumDocu = 0
 I = 2
 Do While Cells(I, 1).Value <> ""
  If Cells(I, 1).Value <> NumDocu Then
   NumDocu = Cells(I, 1).Value
   Rows(I & ":" & I).Insert Shift:=xlDown
  End If
  I = I + 1
 Loop
End Sub

Супер, получи се. Хиляди благодарности.


Линк към този отговор
Сподели в други сайтове

Добавете отговор

Можете да публикувате отговор сега и да се регистрирате по-късно. Ако имате регистрация, влезте в профила си за да публикувате от него.

Гост
Напишете отговор в тази тема...

×   Вмъкнахте текст, който съдържа форматиране.   Премахни форматирането на текста

  Разрешени са само 75 емотикони.

×   Съдържанието от линка беше вградено автоматично.   Премахни съдържанието и покажи само линк

×   Съдържанието, което сте написали преди беше възстановено..   Изтрий всичко

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Добави ново...

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите Условия за ползване