{"id":351,"date":"2018-03-12T09:31:15","date_gmt":"2018-03-12T09:31:15","guid":{"rendered":"http:\/\/abdullahkoc.com.tr\/?p=351"},"modified":"2018-03-12T09:31:15","modified_gmt":"2018-03-12T09:31:15","slug":"excel-makro-vba-program-yazma-excelde-rakamlara-basildiginda","status":"publish","type":"post","link":"http:\/\/abdullahkoc.com.tr\/index.php\/2018\/03\/12\/excel-makro-vba-program-yazma-excelde-rakamlara-basildiginda\/","title":{"rendered":"Excel Makro (VBA) Program Yazma &#8211; Excel&#8217;de rakamlara bas\u0131ld\u0131\u011f\u0131nda"},"content":{"rendered":"<p>Excel Makro (VBA) Program Yazma &#8211; Excel&#8217;de rakamlara bas\u0131ld\u0131\u011f\u0131nda<\/p>\n<p><iframe loading=\"lazy\" src=\"https:\/\/www.youtube.com\/embed\/kRimNYkZDn8\" width=\"560\" height=\"315\" frameborder=\"0\" allowfullscreen=\"allowfullscreen\"><span data-mce-type=\"bookmark\" style=\"display: inline-block; width: 0px; overflow: hidden; line-height: 0;\" class=\"mce_SELRES_start\">\ufeff<\/span><\/iframe><\/p>\n<p>&nbsp;<\/p>\n<p>\u00d6RNEK KODLAR A\u015eA\u011eIDA<\/p>\n<p>Public sat As Integer<br \/>\nPublic sut As Integer<br \/>\nPublic run As Boolean<\/p>\n<p>Private Sub CommandButton1_Click()<br \/>\nEnd<br \/>\nEnd Sub<\/p>\n<p>Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)<br \/>\nStatic x, y, SUTUNSAYISI<br \/>\nOn Error Resume Next<br \/>\nTextBox2.Enabled = False<br \/>\nIf run Then<br \/>\nx = sat<br \/>\ny = sut<br \/>\nSUTUNSAYISI = Val(TextBox2.Text)<br \/>\nrun = False<br \/>\nEnd If<\/p>\n<p>If IsEmpty(x) Then x = 2<br \/>\nIf IsEmpty(y) Then y = 2<\/p>\n<p>If KeyAscii &lt; 48 Or KeyAscii &gt; 57 Then<br \/>\nIf KeyAscii = vbKeySpace Then<br \/>\nGoTo devam<br \/>\nEnd If<br \/>\nKeyAscii = 0<br \/>\nExit Sub<br \/>\nEnd If<br \/>\ndevam:<br \/>\nCells(x, y).Value = Chr(KeyAscii)<br \/>\ny = y + 1<br \/>\nCells(x, y).Activate<\/p>\n<p>If y &gt; SUTUNSAYISI Then<br \/>\ny = 2<br \/>\ny = y + 1<br \/>\nx = x + 1<br \/>\nEnd If<br \/>\nTextBox1.Text = &#8220;&#8221;<br \/>\nUserForm1.Caption = &#8220;Sat\u0131r= &#8221; &amp; x &amp; &#8221; , &#8221; &amp; &#8221; S\u00fctun= &#8221; &amp; y<br \/>\nEnd Sub<\/p>\n<p>Private Sub UserForm_Activate()<br \/>\nOn Error Resume Next<br \/>\nrun = True<br \/>\nsat = ActiveCell.Row<br \/>\nsut = ActiveCell.Column<br \/>\nTextBox2.Text = Range(&#8220;a1&#8221;).End(xlToRight).Column<br \/>\n&#8216;sat = InputBox(&#8220;Ba\u015flang\u0131\u00e7 Sat\u0131r De\u011ferini girin&#8221;, &#8220;IDAkademi&#8221;, 2)<br \/>\n&#8216;sut = InputBox(&#8220;Ba\u015flang\u0131\u00e7 S\u00dcTUN De\u011ferini girin&#8221;, &#8220;IDAkademi&#8221;, 2)<br \/>\nTextBox1.SetFocus<br \/>\nEnd Sub<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Excel Makro (VBA) Program Yazma &#8211; Excel&#8217;de rakamlara bas\u0131ld\u0131\u011f\u0131nda \ufeff &nbsp; \u00d6RNEK KODLAR A\u015eA\u011eIDA Public sat As Integer Public sut As Integer Public run As Boolean Private Sub CommandButton1_Click() End End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Static x, y, SUTUNSAYISI On Error Resume Next TextBox2.Enabled = False If&hellip;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"enabled":false},"version":2}},"categories":[22,21,20],"tags":[78,76,81,73,75,72,74,80,79,82,77],"class_list":["post-351","post","type-post","status-publish","format-standard","hentry","category-excel-makro-vba-kursu","category-ileri-excel-kursu","category-microsoft-excel","tag-adapazari-excel-makro","tag-anket-doldurma","tag-duzce-excel","tag-excel-makro","tag-excel-makro-yazma","tag-excel-vba","tag-excel-vba-makro","tag-excel-vba-sakarya","tag-ileri-excel","tag-kocaeli-makro","tag-sakarya-excel-makro"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p91l8e-5F","jetpack_likes_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/posts\/351","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/comments?post=351"}],"version-history":[{"count":1,"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/posts\/351\/revisions"}],"predecessor-version":[{"id":352,"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/posts\/351\/revisions\/352"}],"wp:attachment":[{"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/media?parent=351"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/categories?post=351"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/abdullahkoc.com.tr\/index.php\/wp-json\/wp\/v2\/tags?post=351"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}