Hücrelere yazma hatasını düzeltmek.

[handannn54]

böyle bi forum olduğunu googleda ödevimi ararken buldum..çok aktif belki hemen cevap bulabilirim..

bi ödevim var bu konuda biraz bilgisizim diğerlerini hallettim ama bir soru için yardım bekliyorum..

bir form var ve bunu dizayn etmemizi istiyor hocamız.hücrelere yazma hatasını düzeltiniz demiş..makro görüntüle kısmından bunu yazdım ama bi terslik var sanırım.. nasıl çalıştırılır neresi düzeltilir?? lütfen yardım

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.ListIndex
End Sub

Private Sub CommandButton1_Click()
Dim hucre As String
a = ComboBox1.ListCount
Range("b2").Value = a
ComboBox1.ListIndex = 2
hucre = "c" + Str(1)
Range("b2").Value = hucre
Range("b3").Value = ComboBox1.Value
For I = 1 To a Step 1
hucre = "c" + Str(I)
ComboBox1.ListIndex = I - 1
'hucre = InputBox("gir")
Range(hucre).Value = ComboBox1.Value
Next I
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem (Sayfa1.Range("a1").Value)
ComboBox1.AddItem (Sayfa1.Range("a2").Value)
ComboBox1.AddItem (Sayfa1.Range("a3").Value)
End Sub

 

[serdar48]

merhaba, bu şekilde problem tam anlaşılmamış, ben anlayamadım en azından, dosyayı ekte gönderebilir misin

 

[handannn54]

dosya bu şekilde işte birde form var onun resmide altta.wordde bu şekilde yazılı bi ödev

 

[handannn54]

yani ödev dosyası olan word sayfasında aynen şu yazıyor copy/paste yapıyorum:

_____________________

3- Aşağıdaki form’ u dizayn edin ve programı yazın, hücrelere yazma hatasını düzeltiniz?

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.ListIndex
End Sub

Private Sub CommandButton1_Click()
Dim hucre As String
a = ComboBox1.ListCount
Range("b2").Value = a
ComboBox1.ListIndex = 2
hucre = "c" + Str(1)
Range("b2").Value = hucre
Range("b3").Value = ComboBox1.Value
For I = 1 To a Step 1
hucre = "c" + Str(I)
ComboBox1.ListIndex = I - 1
'hucre = InputBox("gir")
Range(hucre).Value = ComboBox1.Value
Next I
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem (Sayfa1.Range("a1").Value)
ComboBox1.AddItem (Sayfa1.Range("a2").Value)
ComboBox1.AddItem (Sayfa1.Range("a3").Value)
End Sub

 

[Necdet]

Merhaba,

Sorunuz pek anlaşılmıyor, ne yapmak istiyorsunuz, nasıl bir sonuca ulaşmak istiyorsunuz gibi.

Görüntüyü değil dosyanızı ekleyiniz ve ne sonuç almanızı belirtiniz.

 

[ReBiwAr]

lütfen her yere aynı mesajı yazmayınız..

 

[handannn54]

Merhaba,

Sorunuz pek anlaşılmıyor, ne yapmak istiyorsunuz, nasıl bir sonuca ulaşmak istiyorsunuz gibi.

Görüntüyü değil dosyanızı ekleyiniz ve ne sonuç almanızı belirtiniz.

dosya mosya yok ödev bu şekilde diyorum kaç mesajdır..sende görüntü yok heralde.

 

[İhsan Tank]

dosya mosya yok ödev bu şekilde diyorum kaç mesajdır..sende görüntü yok heralde.

Bu ne demek oluyor söyler misiniz_?
Siz kimsiniz Necdet Hoca'ya laf söylüyorsunuz. Ödeviniz varsa gidin öğretmeninize sorun.

 

[Levent Menteşoğlu]

dosya mosya yok ödev bu şekilde diyorum kaç mesajdır..sende görüntü yok heralde.

Bu nasıl bir hitap şeklidir. Bu şekilde yardım alabileceğinizimi umuyorsunuz. Bence şansınızı fazla zorluyorsunuz.

 

[Necdet]

Gençlik işte, ne yaparsınız.

Alışmışlar Kopyala ve Yapıştır olayına

Biraz sıkıştırınca olay bu diyorlar

 

[uzmanamele]

Merhaba

syn handannn54, sorunuz anlaşılmıyor, bu sebepten yardım almanız zor.
saygı, sevgi çerçevesinde davrandığınız sürece her konuda yardım alabilirsiniz, üslubunuza biraz dikkat etmenizi öneririm.

ek dosya ödevinizin temeli, bunu üzerinden hareketle ne yapmak istediğinizi anlatmaya çalışınız.

 

[ReBiwAr]

böyle kullanıcıların banlanmasını talep ediyorum. Hem karşılıksız yardım etmeye çalışıyoruz hep birlikte hem de kirlilik yaratıyorlar..
Necdet hocam büyüklüğünü göstermiş yinede..

İyi Çalışmalar.

 

[LCANER]

dosya bu şekilde işte birde form var onun resmide altta.wordde bu şekilde yazılı bi ödev

commandbu yazıyorya normalde bunun uzmanamele hocanın yaptığında commandButton1 yazıyor acaba bunun tam olarak okunmasını istiyor olabilirmi yazılımda. Sadece bir görüş belkide bu değildir ama baktığımda ilk bunu gördüm.

 

[ReBiwAr]

commandbu yazıyorya normalde bunun uzmanamele hocanın yaptığında commandButton1 yazıyor acaba bunun tam olarak okunmasını istiyor olabilirmi yazılımda. Sadece bir görüş belkide bu değildir ama baktığımda ilk bunu gördüm.

Hayır onunla bir alakası yok..