Kapalı dosyadan veri almakla ilgili talep.

[s.savas]

Arkadaşlar herkese iyi akşamlar.
Kapalı dosyadan veri almakla ilgli birkaç konu inceledim, ancak mantığını algılamakta zorluk çekiyorum.
Ekteki dosyada maruzatımı dile getirdim, bedavacılığa kaçıp dosyanın tarafınızca yapılmasını istemiyorum. Bu işlemi nasıl yapmam gerektiğini adım adım tarif ederseniz memnun olurum.
Not:Form dizaynı siteden alınma ve İsmail Küçükşengün hocaya aittir.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[s.savas]

Teşekkür

Ekli dosyayı inceleyin.

Üstat ilginize teşekkür ederim.

 

[s.savas]

Ekli dosyayı inceleyin.

Levent hocam ilginize tekrar teşekkür ederek konuyla ilgili değişik bir soru sormak isterim.
Yukarıdaki örnekte firma adı, adresi, ili ilçesi v.s.

Private Sub CommandButton1_Click()
Set s1 = Sheets("veri")
son = s1.[b65536].End(3).Row + 1
For a = 1 To 8
s1.Cells(son, a + 1) = Controls("textbox" & a)
Next
End Sub

B sütunundan X sütununa doğru soldan sağa doğru sıralanıyor. Aynı verileri A3 den A... 'e doğru yazdırmak istersek nasıl kod oluşturmak gerekir.

 

[halit3]

böyle denermisiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("veri")
For i = 3 To 10
s1.Cells(i, "A") = Controls("textbox" & i)
Next
End Sub