[Yardım]  Then Exit Sub Hakkında yardım

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

Then Exit Sub Hakkında yardım

İleti#1)  snrkrmz » 31 Mar 2020 15:25

Sayın arkadaşlar altta yazdığım formül alt hücrelerde istediğim şartlar yerine gelmeden çıkış yapıyor.. Förmülün tam olarak açılımı nedir söyleyebilirmisiniz. >1 derken ne demek istiyor.. yardımcı olabilirmisiniz..

If WorksheetFunction.CountIf(Range("D16:D" & i), Range("D" & i).Value) > 1 Then Exit Sub
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Then Exit Sub Hakkında yardım

İleti#2)  erseldemirel2 » 31 Mar 2020 15:34

snrkrmz yazdı:Sayın arkadaşlar altta yazdığım formül alt hücrelerde istediğim şartlar yerine gelmeden çıkış yapıyor.. Förmülün tam olarak açılımı nedir söyleyebilirmisiniz. >1 derken ne demek istiyor.. yardımcı olabilirmisiniz..

If WorksheetFunction.CountIf(Range("D16:D" & i), Range("D" & i).Value) > 1 Then Exit Sub


Eğersay formülüdür
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 716
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Then Exit Sub Hakkında yardım

İleti#3)  snrkrmz » 31 Mar 2020 16:26

Eğersay olduğunu biliyorum, ama neyi sayıyor da çıkış yapıyor
Formülü tam anlamı ile yorumlayabilirmisiniz..
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Then Exit Sub Hakkında yardım

İleti#4)  erseldemirel2 » 31 Mar 2020 17:16

D16 hücresinden i hücresine kadar kaçtane kendisinden olduğu sayıyor. Bunun cevabı 1 dir. 1 den başka ise yordamdan çıkıyor.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 716
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Then Exit Sub Hakkında yardım

İleti#5)  snrkrmz » 31 Mar 2020 21:12

Peki kendisinden kasıt nedir.. Şöyle söyleyeyim... D16 ya ankara yazıyorum oluyor.. d17 ye yazıyorum oluyor.. d16 d17 den sonra atlıyorum d30 a ankara yazıyorum çıkıyor.. 1 değeri almıyor yani. neyi kendisinden olmayan olarak görüyor..
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Then Exit Sub Hakkında yardım

İleti#6)  erseldemirel2 » 31 Mar 2020 21:23

bilemem dosyayı ekleyin bir bakılsın
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 716
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Then Exit Sub Hakkında yardım

İleti#7)  snrkrmz » 31 Mar 2020 21:52

Hocam konu dışı ama bir şey daha sorsam acaba zamanınız varsa yardımcı olabilirmisiniz

For i = 1 to 10
Cells (1,1)=5

Next i

Bu formülün arasına ne korsam 5 ten 1 artırarak alt alta sıralar
Ya da bsşka bir formülle a1 e 5 yazdığında alt hücrelere 1 artırarak otomatik yazdırabiliriz
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Then Exit Sub Hakkında yardım

İleti#8)  erseldemirel2 » 31 Mar 2020 22:47

Aşağıdaki kod a1 hücresindeki değeri 2.satırdan 10.satıra kadar 1 arttırarak yazar

Kod: Tümünü seç
Sub hesapla()
say = Range("a1")
For i = 2 To 10
say = say + 1
Range("a" & i) = say
Next i
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 716
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Then Exit Sub Hakkında yardım

İleti#9)  snrkrmz » 31 Mar 2020 23:44

Teşekkür ederim
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Then Exit Sub Hakkında yardım

İleti#10)  erseldemirel2 » 01 Nis 2020 00:08

Kolay gelsin iyi calısmalar
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 716
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe