H\u00fccre i\u00e7erisinde ayra\u00e7 aras\u0131nda ki de\u011feri ba\u015fka kolona aktaran Visual Basic kodu<\/p>\n
Sub Parcala()\r\n Dim kelime, ayrac As String\r\n Dim satir, sutun, Yapistir As Variant\r\n'*******************\r\n'ayrac = \".\"\r\n'sutun = \"2\"\r\n'satir = \"1\"\r\n'Yapistir = \"3\"\r\n'*******************\r\n\r\n ayrac = InputBox(\"Ayririci Ne Olacak\", \"Ayrac Girin\")\r\n sutun = InputBox(\"Hangi Sutundan Baslasin\", \"Hangi Sutundan Baslasin\")\r\n satir = InputBox(\"Satir Baslangic Sayisi\", \"Satir Baslangic Sayisi\")\r\n Yapistir = InputBox(\"Bulunan deger nereye yapistirilsin\", \"Bulunan deger nereye yapistirilsin\")\r\n\r\n' For i = CInt(satir) To Columns(CInt(sutun)).End(xlDown).Row\r\n For i = CInt(satir) To Cells(Rows.Count, CInt(sutun)).End(xlUp).Row\r\n kelime = Cells(i, CInt(sutun)).Value\r\n If kelime = \"\" Then GoTo atla:\r\n kelime = Mid(kelime, (InStr(1, kelime, ayrac, 0) + 1), Len(kelime))\r\n Cells(i, CInt(Yapistir)).Value = Mid(kelime, 1, (InStr(1, kelime, ayrac, 0) - 1))\r\n\r\n If (Cells(i + 1, CInt(sutun)).Value = \"\") And (Cells(i + 2, CInt(sutun)).Value = \"\") And (Cells(i + 3, CInt(sutun)).Value = \"\") And (Cells(i + 4, CInt(sutun)).Value = \"\") Then Exit For\r\natla:\r\n Next\r\n\r\nEnd Sub<\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
H\u00fccre i\u00e7erisinde ayra\u00e7 aras\u0131nda ki de\u011feri ba\u015fka kolona aktaran Visual Basic kodu Sub Parcala() Dim kelime, ayrac As String Dim […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_uag_custom_page_level_css":"","site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[2],"tags":[151,69,71],"class_list":["post-292","post","type-post","status-publish","format-standard","hentry","category-yazilim","tag-excell","tag-makro","tag-visual-basic"],"uagb_featured_image_src":{"full":false,"thumbnail":false,"medium":false,"medium_large":false,"large":false,"1536x1536":false,"2048x2048":false},"uagb_author_info":{"display_name":"VeYSeL","author_link":"https:\/\/dijitalturk.com\/veysel\/author\/veysel\/"},"uagb_comment_info":0,"uagb_excerpt":"H\u00fccre i\u00e7erisinde ayra\u00e7 aras\u0131nda ki de\u011feri ba\u015fka kolona aktaran Visual Basic kodu Sub Parcala() Dim kelime, ayrac As String Dim […]","_links":{"self":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/posts\/292","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/comments?post=292"}],"version-history":[{"count":0,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/posts\/292\/revisions"}],"wp:attachment":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/media?parent=292"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/categories?post=292"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/tags?post=292"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}