döngü sayısını öğrenme

[chakistes]

merhaba arkadaşlar userformda program döngü ile aktarırken textbox kutusuna aktarılan kayıt sayısını devamlı vermesini nasıl sağlarız. Örnek : imacrostaki gibi 100/1 gibi

 

[Ömer BARAN]

Sorunuzu; gerçek belgenizin, özel bilgi içermeyen kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorarsanız
daha hızlı sonuca ulaşırsınız.
Ekleyeceğiniz örnek belgede, belirttiğiniz userform ve kodların çalışır durumda olduğunu kontrol ediniz.

Basitçe şöyle düşünün;
-- kullanılan koddaki for..next döngüsünün ilk satırı For a = 2 To k olsun, k değeri 100 ise
(bu değer kod'un daha üst satırlarında tespit ediliyordur veya doğrudan yazdığınız bir sayı varsa o sayıdır) toplam adet (100-2)+1 dir,
-- döngünün kaçıncı turunda olduğunu ise a değeri gösteriyor yani işlem 2'den başlıyorsa a-1 istenilen ikinci değer oluyor.

Bu durumda döngünün içine (örneğin For .... satırının hemen altına), TextBox1= (k-2+1) & " / " & a-1 şeklinde bir satır ilave ederek deneyin.

Halledemezseniz örnek belge eklersiniz.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[chakistes]

yardımın için teşekkür ederim fakat modül içinde kullandığım bu döngü içine yaptım tetiklemedi.
'---------------------------------------------------------------------------------------------------
Function devamBilgileriniat()


UserForm2.WebBrowser1.Navigate ("https://site adresi)
Application.Wait (Now + TimeValue("0:00:01"))
devamat "nofonk", "noarg"
devamaktar ""

Dim sayı As Integer
sayı = 0
Dim sonsatır As Integer
sonsatır = Sheets("sayfa3").Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To sonsatır
If Sheets("sayfa3").Range("G" & i) <> "+" Then
devamaktar i & ""
sayı = sayı + 1

End If
Next i

MsgBox (sayı & " adet kayıt aktarıldı")

End Function

 

[Ömer BARAN]

Tahmin üzerine pek cevap yazmıyorum.
İsteğinizi biraz daha netleştirerek örnek belge yüklerseniz bakarım.
İstenilen şey;
-- koşullara (If....satırındaki koşul) uyan veri adeti / sayı değişkeninin aldığı değer mi?
-- yoksa i değişkeni / sayı değişkeni mi?
Ayrıca şunu da belirteyim, verdiğiniz kod bir KTF (kullanıcı tanımlı fonksiyon).
Bu fonksiyonu nerede kullanıyorsunuz? Sayfada mı yoksa userformda mı?
Bir kez daha yazacağım; örnek belge eklerseniz daha hızlı sonuca ulaşırsınız.
Belirttiğiniz userform ve değeri yazdıracağınız TEXTBOX mutlaka örnek belge içinde olsun.
.

 

[chakistes]

yardımın için teşekkür ederim kendim çözmeye çalışayım hazırladığım program bayağı bağlantılı ve ayırmak içindeki gizli bilgileri silmek uzun sürer.