Results 1 to 2 of 2
Thread: Ìàëêî ïîìîù çà VBA
Hybrid View
-
2nd February 2019 11:44 #1Registered User
Join Date: May:2013
Location: Áîòåâãðàä
Posts: 1
Ìàëêî ïîìîù çà VBA
Çäðàâåéòå,
Áèõ èñêàë äà ïîìîëÿ çà ïîìîù çà ñëåäíîòî íåùî. Èìàìå åêñåëñêè ôàéë, â êîéòî èìà äâà øèèòà - "MAIN" è "DATA". Òîâà êîåòî áèõ èñêàë äà ñå ñëó÷è å ñëåäíîòî. Ñ íàòèñêàíåòî íà áóòîí "Refresh", ïðîãðàìàòà äà îòèäå â øèèò "DATA", äà ïðîâåðè è äàííèòå îò êîëîíà "A" ñ äàííèòå îò êîëîíà "A" â øèèò "MAIN" è äà êîïèðà ãè êîïèðà îò "DATA" â "MAIN", íî ñàìî òåçè êîèòî íå ñà íàëè÷íè â "MAIN" ñúîòâåòíî íàé-îòäîëó.
Áëàãîäàðÿ âè ïðåäâàðèòåëíî
-
2nd February 2019 15:51 #2
Ñåùàì ñå çà:
 Sheet "Data", ïðàâèø êîëîíà B, â êîÿòî äà èìà ïðîâåðêà, äàëè ñòîéíîñòòà ÿ èìà â "Main" íàïð. ôîðìóëàòà â B2 ùå äà å "IF(ISNA(VLOOKUP(A2; Main!$A:$A; 1; FALSE)); "No"; "Yes")
Âå÷å, àêî ãîâîðèì çà ìàëêî ðåäîâå è íå òå ïðèòåñíÿâà ðú÷íàòà ðàáîòà - ôèëòðèðàø ïî êîëîíà B, äà ñå âèæäàò "Yes"-îâåòå è êîïèðàø â äðóãàòà òàáëèöà.
Àêî èñêàø äà å àâòîìàòè÷íî, ìîæåø äà çàïèøåø åäèí ìàêðîñ ñ Advanced Filter (+ Copy) ôóíêöèÿòà.
Ñëåä òîâà ìààààëêî ùå òðÿáâà äà ãî ïèïíåø (çàùîòî àêî ïóñêàø òîçè ìàêðîñ, âèíàãè ùå Paste-âà íåùàòà íà åäíî è ñúùî ìÿñòî, à òè èñêàø äà ãè äîáàâÿø íàé-îòäîëó, ïðåäïîëàãàì).
 åäíà ïðîìåíëèâà äà ïðåáðîè êîëêî ðåäà â êîëîíà Main / A èìà äàííè, äà äîáàâè 1 è òàì äà Paste-íå ôèëòðèðàíèòå íåùà.
Ïîñëå ñè ñëàãàø áóòîí÷åòî êúäåòî èñêàø è ìó ïðèêà÷àø ãîòîâèÿò Macros.Àêî ïðîäúëæàâàø äà ïðàâèø òîâà, êîåòî ïðàâèø, ùå ïðîäúëæèø äà ïîëó÷àâàø òîâà, êîåòî ïîëó÷àâàø.Ïðîñòè ïðàâèëà çà èäèîòè: ÍÿêîÉ (åäèíñòâåíî ÷èñëî) - íÿêîÈ (ìíîæåñòâåíî); ÊîÉ (åä.÷.) - êîÈ (ìí.÷.).
ÁàòåðèÉ ñúùî å Ã-Ð-Å-Ø-Í-Î! Íàó÷åòå ñå äà ïèøåòå, ÷å ìè ïèñíÀ íà...




Reply With Quote
Ïðåïîðú÷àéòå ìÿñòî çà ïî÷èâêà â...
7th May 2023, 14:24 in Îáùè ïðèêàçêè