Премини към съдържанието

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


Здравейте!
Имам нужда от помощ относно excel 2007! Имам една база, от която искам да извадя определени номера!Примерно базата ми е от номер 500 до номер 1000. Искам да направя извадка на номер 500, след това номер 510,520 и така през 10 номера! Как да направя така че програмата да ги намери и извади автоматично?

Сподели този отговор


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

Благодаря за респонда DarkEdge  ,но няма ли по лесен начин? Примерно клетките от колона А да ги прехвърля в колона B с номерата дето ми трябват?

9427377c.png

Сподели този отговор


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

Благодаря за респонда DarkEdge  ,но няма ли по лесен начин? Примерно клетките от колона А да ги прехвърля в колона B с номерата дето ми трябват?

 

А защо не си казал какво разбираш под база. База е това, което ти е показал, а и не само. Тъкмо щях да ти предложа и друг вариант за база - с макрос.

  • Харесва ми 1

Сподели този отговор


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

А защо не си казал какво разбираш под база. База е това, което ти е показал, а и не само. Тъкмо щях да ти предложа и друг вариант за база - с макрос.

Да усетих се, за което се извинявам и се поправих в предния пост! :) Та да мина пак на въпроса - има ли начин директно с формула да си изкарам номерата в другата колона, вместо да ги търся и да ги копирам 1 по 1, защото ако са примерно 10 номера ок, но ако са от 50 нагоре отнема страшно много време! 


Сподели този отговор


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

Да усетих се, за което се извинявам и се поправих в предния пост! :) Та да мина пак на въпроса - има ли начин директно с формула да си изкарам номерата в другата колона, вместо да ги търся и да ги копирам 1 по 1, защото ако са примерно 10 номера ок, но ако са от 50 нагоре отнема страшно много време! 

Предлагам ти макрос, защото с формули може и да стане, но първо не ми се занимава, защото ще отнеме време и второ с макроса е много по-лесно

Първия Sub OpiCheckData е за тестване и подсказка как се работи/извиква макроса CheckDataOther

Не се изтриват данните в колона B, трябва да се трият ръчно, защото не знам дали няма нещо друго там

Дано помогне.

Option Explicit
'Данните са в колона "A", от ред 1; Разполагат се в Колона "B" ред 12
'Започва да се тръси от 500 вкл. до 600 вкл, и да са кратни на 10
Sub OpiCheckData()
 Call CheckDataOther("A", 1, "B", 12, 500, 600, 10)
End Sub
'ColumnData - Колона с данни
'NaRowData - Начало на реда за търсене
'NewColumnData - Колона, където да се разполагат отговарящите на условието
'NewRowData - Начален ред за разполагане на отговарящите на условието
'NaData - Стойност, от която да започва търсенете
'EndData - Стойност, до която приключва търсенето
'ModData - Стъпка за търсене на данните /кратност
Sub CheckDataOther(ColumnData As String, NaRowData As Long, _
       NewColumnData As String, NewRowData As Long, _
       NaData As Integer, EndData As Integer, ModData As Integer)
 Dim MaxRow As Long
 Dim MyRange As Range, Rng As Range
 Dim Count As Long
 MaxRow = Range(ColumnData & Rows.Count).End(xlUp).Row
 Set MyRange = Range(ColumnData & NaRowData & ":" & ColumnData & MaxRow)
 For Each Rng In MyRange
  If (Rng.Value >= NaData) And (Rng.Value <= EndData) And _
     (Rng.Value Mod ModData = 0) Then
   Range(NewColumnData & NewRowData + Count).Value = Rng.Value
   Count = Count + 1
  End If
 Next
End Sub
 

  • Харесва ми 1

Сподели този отговор


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

Благодаря Ви за оказаната помощ и най-вече на TRN!

Сподели този отговор


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

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

×

Информация

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