Kod:
Private Sub Göster1_Click()
ser0 = erdem
ser1=ali
ser2=veli
For sayac1 = 0 To 69 Step 1
Metin = "metin" & sayac1
sr = "ser" & sayac1
metin=BuyukDegerAl(HLM, yol & sr, yol1)
Next sayac1
End Sub
yani
metin=BuyukDegerAl(HLM, yol & sr, yol1) yazdığım kodu
metin0=BuyukDegerAl(HLM, yol & ser0, yol1)
metin1=BuyukDegerAl(HLM, yol & ser1, yol1)
metin2=BuyukDegerAl(HLM, yol & ser2, yol1)
gibi görsün istiyorum ama bir türlü beceremedim.
Yardımlarınız için şimdiden tşk ederim.
Not: tamamını uzun olduğundan eklemedim. gerisi çalışıyor. Üstte yazdığım kısım hariç.