[Yardım]  Makro İle İstenilen Aralığı Saydırmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Makro İle İstenilen Aralığı Saydırmak

İleti#1)  Metin1981 » 02 Arl 2019 07:46

İyi günler;
Ekli dosyada M-1 sayfasında say butonuna bastığımda Userform3 açılıyor.Açılan Userform da Textbox1'e başlangıç sayısını; Textbox2'ye bitiş sayısını yazıp Say butonuna bastığımda M-1 sayfasında A10:A59 hücre aralığına Başlangıç ve bitiş sayılarını yazdırabilir miyiz. ?.Eğer Textbox3ê de yazılmasını istemediğimiz sayıları yazdım zaman (aralara virgül koyarak )makro bu sayıları yazmayacak.Örneğin
Başlangıç Sayısı:15
Bitiş Sayısı :25
Atlanacak :18,20,24
A1:A59 hücresine sırası ile yazılacak sayılar: 15,16,17,19,21,22,23,25
Yardımlarınızı bekliyorum.Saygılar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 41
İleti: 778
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Makro İle İstenilen Aralığı Saydırmak

İleti#2)  Ali ÖZ » 02 Arl 2019 14:36

Deneyin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
sat = 10
atla = Split(TextBox3.Value, ",")
  For i = Val(TextBox1.Value) To Val(TextBox2.Value)
   For a = 0 To UBound(atla)
     If i = Val(atla(a)) Then
       durum = False
     Else
       durum = True
     End If
     If durum = True Then
       Range("a" & sat).Value = i
     Else
       GoTo devam
     End If
   Next
   sat = sat + 1
devam:
Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9956
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 0 misafir

Bumerang - Yazarkafe