Здравствуйте.  Прошу подсказать..Я не силен в кодах. Использую макрос (пдсмотрел в ютубе) для открытия другой книги, и копирования из нее  определнных значений в свою книгу.
Когда  отменяешь  выбор книги в диалоговом окне (закрываешь диалоговое окно) выскакивает ошибка.

[img]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAASwAAACnCAYAAACrfWHaAAAZ6UlEQVR4Ae2dT2gcyX7Hf1oc8gg5JCGXEN6zFzQRNp6TfNE4xPgtPJDWB7EHHfawz+xhRA7LSgZDFtYsxgYHBE+z7CFoDmaeD3vQweiBVgMLu45DLF2skzZrtKOwcojIJYddCI8HCTv5/aq6uqt7qrrnb0+P5ttG7u7qX/1+v/pUz29+VTM9NfPznRdtwgYCIAACE0Bgps3bBPgJF0EABKacwC9+t09vTDkDNB8EQGCCCCBgTVBnwVUQmHYCCFjTfgeg/SAwQQQQsCaos+AqCEw7AQSsab8D0H4QmCACCFgT1FlwFQSmnYAVsJq0OjNDM6tNJ5OTT6/TzMx1+vSEL598StfNsVM6h8LmKvvD/l7/lMQl39ZcnaHrymlLQupKO0fSDuEYcLJMEgV8xefgz4M6VqvjpB+fu2TVYctTIEx994mnSkqxxauftvk0D1OXzwbKUwnIfX54eOiVkWsi09Mm38PS2167SpV2pVJp11qmzOzlGvH3tVzXjEyee+1Pdc/Y1L53+s3X96ptigRVhb0qtRNFRtEQ9j5fEuWtWrtC1XbYhCFYdqtIsnJLdV0qfleq7arzPulaiyWY4GJd6e1wWHp6swppP4GXL1+2/+iPf9aWfXJLu5aUNefyJXcrw9Jx7upVou0vEjlLc4fq1Spx0CrQVqErpS7cKV2hSn2H8xuzNWmnXqXlRXM+pv3s39BV+oa+S6AejTddsurC+MkX20Qrd+nuiuM+6aI+RKaHwPz8PB28+FdauP63sUxLMispk2si09NmohenIirDqrVkb7/zt9o19W5qrksN+1jORUYyMP2nsxctU61WuDzQp7KKpJyvvqiVLCQpL3qjskqtFjtPZlPGtzCjimVcdjv8bYgyN1tekrfIj8huXEZap7dEecwPn65ufHLJ2DYjHyumIU6uUkf7GOszo0rtxVaQZatMq8Y9b7agfXtRn4X2zP2Sdk0pSjBy3lcuVlIvaqfui4SujDbXapyJBzoiv9PYmnZjn0XAzqbs46x6yevqMcKoMOrg2JApvDGj6+bG1ve/7tSok41GfRNF5fo8DBzqBgpu/sSLV2tIkTcvgPDVYvtm7Ef7Vo2HusGLNdY2W4/XB3sY7LNjl9vHkQ+amfWiMkHcFlHHVv1Mn3zsbaWWvlC/NSS2+0HxoJCVrUUdh/eCnFnBS10UO9y+ShDEHHr91wxj29de22bXFYfsc+2b894L2hy+4Qhz0zdO/qqx+K9HAiZQ+YaI3ahzDgklPVu8W6NvHurJ7ObGGl39+EOalQuu7eQL2t6v0scfuiQqtPJ2UH7yHQ+ArKHY7If0cXWfvm2xUjVsW4pPjqfJu/xIKZt9W41feHL+hL77xjM8cvmQolNdMpPZM0tUz5JV1yvEcZO4c6jdukIP7cl5l64sn1LZexzK5Gr1WUKFHg6+HdwLsyRY1zaiwTbPcVLtt8G9Yvevabv3WsKQnKa1zcXKoSIs6qLNtbvBHMHiMt+lwVA9i39oAAd5EeiYw1KGZ9+mFdqmL5qf0sNvamT6cmRO8c39gl/Ev6Vfq08N+vr0LM25sD0cXLllJobGqvTqg3wKtUTEk+YcgFrEQ+LeNvGpEgRsn65eferNgx6lm7Sxtk/7a6XwU84Sn1NsftBWKW8O9rl9nHbNlnMc+1g5RAcuKhT/gVszNgX2nJVrTqsXx9wBi99DP/z4Kq0trfEEq3lH9ahVL7w6PUx+dSApriaZ67Rj3pD5xnuYmPye/fAF8fCNvpGZ6C7kkyb850E20EV7Yj5Qia6YoCLK5cMHY6T1Le1XrrAEbyobMBe63Ks6QbaXoSvuk6W/W/ZWlb65StsrNeJRuM4Qw0Bt9SntRx/YBBlS9OFG2jXbweDY17YMVg5NA99LXv5OYyi0CdjBSibYfRPxdp20Y0/A4iqLdzlr8A31bJUc3F7s0VXrndedIS3SVouHmkvB95BKnOu0tkgl4mGKP0OltavB8DJF3javjhdpmYeXayX/94NkWFjhf+EQNanD6YME7irVjc87PLth6gkfWqOSfKfq19/S1a4yrMBHqaPa/4LUSNqny+mTcUD23bK36/TCNarX3KlTpePNS94IKpxkmXehCl39VmfJMyWeStgL+lepSbsW2YmOPG3zseI7yX8P9NdmyuQfeYujTgLJYGUkBgla+D0sQxH7AQnIF0Af0pVWEIRj2tKuxQRxco4IyJdCebLd+9UFCWjXrl1TGXs3zZbfw7rQjSBkQAAEQKBXAvLhUtommVaWTLK+f0iYlMQ5CIAACIyZAIaEY+4AmAcBEOiOAH4iuTtOkAIBECgIAQwJC9IRcAMEQCCbAAJWNiNIgAAIFIQAAlZBOgJugAAIZBNAwMpmBAkQAIGCEEDAKkhHwA0QAIFsAghY2YwgAQIgUBACCFgF6Qi4AQIgkE0AASubESRAAAQKQgABqyAdATdAAASyCSBgZTOCBAiAQEEIIGAVpCPgBgiAQDYBBKxsRpAAARAoCAEErIJ0BNwAARDIJoCAlc0IEiAAAgUhgIBVkI6AGyAAAtkEELCyGUECBECgIAQQsArSEXADBEAgmwACVjYjSIAACBSEAAJWQToCboAACGQTQMDKZgQJEACBghBAwCpIR8ANEACBbAIIWNmMIAECIFAQAghYBekIuAECIJBNAAErmxEkQAAECkIAAasgHQE3QAAEsgkgYGUzggQIgEBBCCBgFaQj4AYIgEA2gWIFrLMGkfxhAwEQAAEHgQuOsvEV/ft9bfuvb4/PB1gGARAoLIHiZFhnDaL/PdV/cowNBEAABBIEihOwOLtq/zmpPzKZVsLZ4Z02aXVmhmasv9Xm8LRrTWKjQrUTo1fOV2noZoz6PPYnNaqkgGquRkwrUcO1Z1LX035VL9B7UqvE+kX6yOjy6feVK8Muu83VyIbVHq8ej3wMudip1Ei6O9YGSz/59PjKAwM2H1WUJu9qb8zRzpNI/wnVKtY9K7ps/zur5l5SjIB11lCZ1U9/QSR/KtOSspFuC7TZalO7zX97VaovjTqYLNJWe4sWR9qmMSrnm/t4OeDZ3qPy+ntBsJYXAQey97bdznG9B/Xo0uzavu4T6Zd2izYXqnRvbVaigFu/r5xDh9suv3EsHQV9z/qPlki9Jr16PPKRy+qoubFO5XtrNMtvSRvrZdoz/h89CDj49PjKAwMJPsT6nf5725twNHka0z9La/fKtL5R4LdVfsGOf3t+qf3TIbX/77X+k+M2l41u22tXaaHNASvY5Lza5puMN9c1Ixtc26y2ud/V30KkJNBldOjrIqdlbL36uFpdCHVwzNQ6q9oLrUzkXOWWKeVvUsbSv7DZbgVtUvbUedJH0z5TvtCOy9r2ujlutTcXbJ1Gr2FsdIgcl+0xz1i7g+tc7ubr0i91XOXCwrKbsNXaXHDYsPT0Kq9YG3td6EnVL/UTfFLlhUGivVLkvEek3KFfZMN7RGSCLWHXFOe5//nOi/b4M6yzRphd8YtbbfllWdreSe0B1RcuUymwn747oPVXyzoL4ChzsL7hGOZJNrVHHBTVO/m+ZAgd2wEdXX5C7dYm0XqJdiQ74eOF+k6or7m6RPxWrTON8J06rsgvE+jfl3d92eLnUu9osxW0g99V39PDGa09LqvLevi/uUHrtEK3XM221DRXS/Tqni/r5AzpAensyqqjDn36feVW/ZPjI1q4HPX07FyZDl61LAk+tPR0JU8tenVQpjnVXu771mV6oKYbpH37pBJEj900/S4+afLxRkRnvnvEpV/VOtim3XAqI9JThKPxB6xg7opsT/hY5rNGO5fFgaek51xKr+5RO3xhZ3ULB6G7wcBucZmD0hEd99W5C7Qir+jZOSpzYFOvIXVs9DVph4dK9SXxsUTrBweUfF3J8MAvE+gPm2OfSz3rXNoRu0mta2H9Lg9kfuXBZWpl8JR5ngeXW7TlGyNL0Cgvdw6hffp95V26HYr1o+fkmI7MGx4PsSrvET0JhoSXH8zoIWdooLuDTD7dqWEp9z3i11+iywsO5Ytb1PZ2lkN+REV2mBiRiRS1Z42O7MpIjz7LMnNY1jyGMd7PXm5UM4k/tIlK46OeG3LfL93I9NOgjDqO9qrJ5h3OPjOClbyINtYPODst6cnvJRWZacbi1uRIXF2ORzOffl+5qwXJjMrOWFx60uRd+k92ea5u5VaQ1cqcEM+P7jT5fSmeyRm77vJjLx+3fJQxunyiINPn4ZvKqLcWs/m79Yy/dLwBy5VdGSa5ZFlijG+qJ5t0FE66yzuMlc00d8iaEzbede5n12g/uCGG806k/dhOzc27kel0lThvWa4eUKhb2riQPYSLaUq2lwPYe5KpuqNqrKrY3zKsZM9Da57DsupKVlClWLzy6feVJyyGp6XL1rD7hHR84UzXp8cnHyrkA8mMD17xwFAOOTBt76pPC1kpD2vregjq0+MsX/Pzccqnjb1d90gafxne2o0LjiXztN5QHBK5FI0vYJ01vNmVafnos6zAEr/4nmwe0ZL6WDp4V1RDMR6O7fBryTjU014HBRl2mo/le6oeBFKZ39Jfv3B9iqmDbbqM2+rilnySZzIc/tTsiZnrcstnlUpmcVBfir4uYH0dIatux3V7iBVc9On3lXfoNAUSaPeIloI5pu2VJ3qOyee/R96o03sJCsFQnodOrZVtKgX618t7pOYwfXp85XED0Vmv8l3dR5F6fWTm45Ll4z+fkVn+sbjxL29S+09P6ae/TLf+xn8TzfzPJaK/+z5dEFdBYIwE5LtM8sFJVwnmGP3MNC2ZlAzrC9iQX/xuPzbVndmWoQmcNZzZ1YWLRPJnb7llWbZRHINAjwQW7/K0As9VTfYmQ1jOts2HSgVszHgyLE92ZYIVfx8rtiHLiuHACQhMJYHxZFhnDWd2ldYDyLLS6OAaCEwPgfwn3dM+GfRxz+0TQ58DKAcBECgCgXwD1lmj5+zKQEKWZUhgDwLTSyDfgNVPdmX6BlmWIYE9CEwtgfwC1lmj7+zK9A6yLEMCexCYTgL5BaxBsivTN8iyDAnsQWAqCeQTsM4aA2dXpneQZRkS2IPA9BHIJ2ANI7syfYMsy5DAHgSmjsDoA9ZZY2jZlekdZFmGBPYgMF0ERh+whpldmb5BlmVIYA8CU0VgtAHrrNFTdiWP5CQfy/H1BrIsHxmUg8D5JTDagDWK7Mr0BbIsQwJ7EJgaAqMLWGeNnrIrIe76tQYp923IsnxkUA4C55PA6ALWKLMr0xfIsgwJ7EFgKgiMJmCdNXrOroR2L3NYIi8bsizNAf+DwDQQGE3AyiO7Mr0zSJbFv+Ndia3ObJT69ryIZU/yPj1Z5Uk7cu76ieQsPbgOAueLwPAD1lmD6A+n1P4Z/7Tx7/P5E1tik8R2D5v8Hni5Wo4WY+ihbr6ismiAb/2+fD2BNRAYJ4HhByzOrmR74z/57z9y+mNbagtsB2cZO1kxpUzLW8tUDlc5kSqu7KbCy41L+RKvoKPXM4wWlpByvb7hTCz70npWVytqYQaRl9/9VgtKhKuPBMupB/W1TpcdrYtVBFu6zVqNf5c7ptPUs/eWjtAfbUf5rBbkSJ5Lfauer72qrm0LxyAwJAJ5LjVdKFutzfZCsDy6LBMfrZSul3mPVqC3z+1j3RqpGy6nLst5h8t8i2xwTWzxsbKhjs1S5jYRkTflSTvx8yyb4bLv4k+o07bFi5eHbbaWUw+WNA/b03Gu64XXfe2Nm8IZCAyFQDGWqh9S4O1VTXNjncrBwneLy3qxy1516FV1rVWSfSsoe1d3ZouySonKhiR7M6s+p3mSvWpzuIiAd2Vq92rA2qrVHlVgn2fbVqtZp7mPayAwAIHhDwkHcCa/qvYLlodpauXhHR7s5LyZZdHVoqJ7fa5/2K/PY1oxul93UQ8EmMB0BixZ6VhWGlaBQi/fvVetk16lSa+U+0qW8ZUtdeXnIaygXJ7Ty5qn2tGu6P+HYJNcqwHbNnzHw7Dt041yEMgmMJUBq7lTp2psHXRePD0cFqat/Ny5mvNAKyjLkM2slhxbYbrTjt2VA9lUioqzYrTdLhyDQBaB8axLmOUVroMACIBAgsB41iVMOIFTEAABEOiWwFQOCbuFAzkQAIFiEUDAKlZ/wBsQAIEUAghYKXBwCQRAoFgEpjRgyeMlw36YWD/Goh+fSdNvyw37Zhil7mH7Cn0g0DuBC71XQY1sAvKw8mK2GCRAAAR6IjClGZbNKMhKOh4Y1g8mR88F8yM06qFe1wPLtj45TmY6cm4efOYvXHm2k5p+UHpGZX8++z5/pTz5cLbbV3kI2zy8rWyGjfQ4hmIQKAgBBCzVEfwLDK+W9Tff+angg/UNDjmzdGtlger66+/8hfc6Lazc4lL+0uW+/nY8PwpMZSWb3pvN1SU62mxp/cvEzwy6tiZtrJdpT337Xn5KJm7/5PgosC91Xf5KVieP9+hHbvbXZlnO7av+4qm0MbC5hWzQ1SMoKx4BBCzVJ/wivxu8aK0HhmdvrdDC0TGd8L/jI+sh4J4eWHY8MOy8D+RxmTotWdmObZ9/uouiB4vd/jrVOn1dpLubR7TEGdnR5l0OjthAYDIIIGCl9dPsLVqhbdpt7vL/K3RLkpaRPbCss6HW5Qf86w3BBwIu+2n+Jq+l+Do7V1bS5TlpFDYQmAwCCFip/TRLc+UDerXzStIbHmAFW08PLCceNM54yHl27QltLpifmZFhIXXaN350s3f6yvNdS8TDzz3ilI4HhthAYDIIIGBl9JN6KLp+FA3HvA8s+xQlHjSOPeRs1zET8yVaL98jNQXFlyUTqtv27Sodx4mHpj2+6jk1GQoGQ0NrGNqhEgUgUCACePi5QJ3hckU+xSttr1Brfy3K8FyCKAOBc04ADz8XuoP1VxJK60SbTxCsCt1VcC43AsiwckMNQyAAAoMQQIY1CD3UBQEQyJ0AJt1zRw6DIAAC/RJAwOqXHOqBAAjkTgABK3fkMAgCINAvAQSsfsmhHgiAQO4EELByRw6DIAAC/RJAwOqXHOqBAAjkTgABK3fkMAgCINAvAQSsfsmhHgiAQO4EELByRw6DIAAC/RJAwOqXHOqBAAjkTgABK3fkMAgCINAvAQSsfsmhHgiAQO4EELByRw6DIAAC/RJAwOqXHOqBAAjkTgABK3fkMAgCINAvAQSsfsmhHgiAQO4EELByRw6DIAAC/RJAwOqXHOqBAAjkTgABK3fkMAgCINAvAQSsfsmhHgiAQO4EELByRw6DIAAC/RK48OOPP/ZbF/VAAARAIFcCyLByxQ1jIAACgxBAwBqEHuqCAAjkSgABK1fcMAYCIDAIAQSsQeihLgiAQK4EELByxQ1jIAACgxBAwBqEHuqCAAjkSgABK1fcMAYCIDAIAQSsQeihLgiAQK4EELByxQ1jIAACgxC4MEhl1J18An/2j/81+Y0YcQt++Ie/yrTw1VdfZcpMu8Bbb701MAIErIERQgEIaALXrl0DCg+Bly9feq70VoyA1Ruvcyv9+u//5Ny2rd+GXfyn3/dbFfVGRABzWCMCC7UgAALDJ4CANXym0AgCIDAiAghYIwILtSAAAsMngIA1fKbQCAIgMCICCFgjAgu1XRB49hFdvHgx/Hvn8alV6Rl9dPEdMkXPPmK5j55Z18/ZYSqLc9bWAZqDTwkHgIeq/RM4ffwO3bg/R43Xr+mmUnNKj9+5QRdbDXr9SJeE2vnFfJsc5aHAhB9IsLpNFosJb88I3UeGNUK4UO0jcEpf7xJ98vxREKxE7hK9/5tPaP7zLymeR3GmdZtfzMkg5lM9ceUcqD87TrAwjZAsM8pAdTZqss4gA30cZalRAirBP6oXZa5JfQldp2JXy2hdPj3Gv/z3CFj5M4fF069p93CO3ryUQHHpl3Rr/nP60opYu3c+o1IssCXqTPqpsKBb9Mski7Bd8xzMXtNrzkRfv27Qu2G5HBzS/dav9LXGu/T57Y+CYM/B/2lUZ+7+lvUmEOl7/gnR7tenlkYJULcl1SP9/pCmx6qW4yECVo6wYaobAvNUetPIHdLh4WHiRWWuYU/EwWc1GD7f/BUHs2P6/jTgEs6J3abP7XIJcjd09nWj9QE9ff9SCHL3zg1qfWCCVZaesFquBwhYueKGMUXg0ps0F3sRBVw6Mi/JBho0d/9OOPl+7ggKi8NdiiU6gzZSgtVnJXruzMqiDKvBM4PRcPGQrc7TcRjx+DRVz6BO9lcfAas/bqg1EIGbtMrDkfs3zBBGlPFw5M59nthatea1pPwmPWrM0f07j1niPG4Bi1j7ntFj8/FoapOj7PP08Wf0+bw1tJx7ky5J3WdfcobVzTZPt37zlD5o3bCCGNfrWU83tvqXwaeE/bNDzQEIXHr/KT0n/qSQJ5XNNv/J89gQxZTTzUfU+PIi3XiH6PnT9/ULMbw4+QcRCw7YanuXp5Ee8dH3wblvN09zrTv8tRCdHX3yPGAjw8Pbt+miRKp33+2c9+IhobYkdi6xUGTn5qPn9H34aW2aHq42hm3mhx9+aI/BLkwWhID5eRk8/NzZIebh525/XibfX2uQT/PkA4mnZE1DdTaiICXyaw2D/rxM+Z//jTAkLEiHwg0QAIFsAhgSZjOCBAgUkADP7b2+WUC/RusSMqzR8oV2EACBIRJAhjVEmJOsyszXTHIb4Pv5J4CAdf77GC3MicCwfgY4J3cn0gw+JZzIboPTIDB9BPAp4fT1OVoMAhNNAJPuE919cB4EposAAtZ09TdaCwITTQABa6K7D86DwHQRQMCarv5Ga0FgogkgYE1098F5EJguAghY09XfaC0ITDQBBKyJ7j44DwLTRQABa7r6G60FgYkmgIA10d0H50FgughckK+7YwMBEACBSSDw/7reInmy8uLUAAAAAElFTkSuQmCC[/img]
Что добавить в код, что бы   ее не было, если прерываешь выполнение .


Sub aaa ()


Dim Kniga As String
Dim PR, NNB  As String
Kniga = Application.GetOpenFilename
NNB = ThisWorkbook.Name
PR = Dir(Kniga)
        GetObject (Kniga)
........................
Workbooks(PR).Close (False)

Добрый вечер. Прошу подсказать В таблице использую формулу ДВССЫЛ(АДРЕС(ПОИСКПОЗ(AD13;Array!A:A;1);2;4;;"Array"))), которая ищет значение  AD  в массиве на другой странице и выводит значение  ячеек в найденой строке.

Вопрос в том, что после обновления массива, (удаляю значения и вставляю новые), эта  формула уже не "видит" значения в массиве, отображает ноль. Если только заново формулу переписать, значение снова отображается.
В чем может быть причина? В каком направлении искать?

И еще заметил что очень файл сильно увеличивается в мегабайтах при использовании этой формулы (массив несколько тысяч строк). Есть ли альтернатива этой формуле...."поиск значения в массиве по сопоставлению  и вывод значений ячеек  в соответствующей строке.

Здравствуйте, прошу подсказать как   при помощи макроса скопировать заданный диапазон ячеек ,  по числовым  значениям из первого столбца из листа с массивом   на другой лист. Спасибо заранее тем  кто откликнется..

Добрый вечер. Прошу подсказать: как  выделить сектор образованный двумя пересекающимися окружностями. В файле пример с построением окружности (взял с этого форума, добавил еще одну окружность), и и в нем  рядом картинка где так сделано . Хотелось бы  понять каким способом это реализовано?

Всем  доброй ночи, как дополнить макрос чтобы он протягивал строки до определенного значения в первом столбце? Пользовался поиском, но подходящего ничего не нашел, все "схемы какие то сложные" мне не подходят.  

Доброй ночи всем...Помогите разобраться. Интерполяция в данном файле с моими значениями не совсем правильно рассчитывается. Или просто так нельзя подставлять значения? Каждый интервал отдельно считать?

Прошу помочь построить  график в трехмерном изображении. Есть прога EXEL которая рассчитывает  профиль скважины. в 2D cтроит вертикальную проекцию по значениям Zверт и VS-смещение в плоскости, и горизонтальную по точкам Xсевер Yвосток. Для большей наглядности наглядности хотелось бы использовать 3D изображение. По примерам в интернете пробовал  использовать F(x;y) c поверхностной диаграммой, не получилось. Что-то делаю не так….

Прошу помочь. Здесь на ветке форума обращался за помощью с вопросом: как отображать значения через одну ячейку. Сейчас обратная задача - отобразить без промежутков.  

Доброй ночи. Собственно вопрос в теме....Есть данные интервалов  (от  до), они скопированы из другой таблицы. Необходимо их  отобразить через одну ячейку (чтобы в свободных применять некоторые формулы).  Каким образом можно это сделать. Спасибо....