Vba satır hatası.

[TRuNsouL]

Private Sub CommandButton1_Click()
Dim t5, a5, n5 As Worksheet
Set a5 = Sheets("Arz")
a5.Range("A4").End(3)(2, 1) = TextBox7.Value & " " & unvan.Value & " " & sicilno.Value & " " & adsoyad.Value
a5.Range("I2").End(3)(2, 1) = dosyano.Value
a5.Range("B3").End(3)(2, 1) = ComboBox4.Value
a5.Range("H2").End(3)(2, 1) = TextBox4.Value
Set n5 = Sheets("Sayfa1")
n5.Range("A2").End(3)(2, 1) = sicilno.Value
Set t5 = Sheets("Takip")
sonsatir = t5.Range("A65536").End(xlUp).Row + 1
t5.Range("A65536").End(3)(2, 1) = sonsatir - 1
t5.Range("B65536").End(3)(2, 1) = sicilno.Value
t5.Range("C65536").End(3)(2, 1) = adsoyad.Value
t5.Range("D65536").End(3)(2, 1) = dosyano.Value
t5.Range("F65536").End(3)(2, 1) = ComboBox4.Value
t5.Range("G65536").End(3)(2, 1) = TextBox4.Value
End Sub

Arkadaşlar merhaba, acemiyim araştırarak birşeyler yapmaya çalışıyorum. Yukarıda ki kod çalışıyor fakat ekle butonuna bastığımda "Arz" sayfasına tanımladığım değerleri ekliyor ama mesela "B3" hücresine combobox4 ü ekleyeceğine "b2" ye ekliyor. "a4" ü bazen "a2" ye ekliyor. Bu konuda bana yardımcı olabilir misiniz hatam nerede? Bir de "A4" hücresine eklenmesi gereken tanımlamalarda çekilen verinin hepsi büyük harf. Ben sadece Baş harflerinin büyük olmasını nasıl sağlayabilirim teşekkürler.

 

[ÖmerFaruk]

Dosyanızı göremiyorum.

Aşağıdaki kod satırında değer yazmaya çalıştığınız hücre
a5.Range("A4").End(3)(2, 1)= TextBox7.Value & " " & unvan.Value & " " & sicilno.Value & " " & adsoyad.Value

a5 sayfasında A4 hücresinden önceki
A sütununda A4 boşsa ilk dolu hücre ya da A sütununda A4 dolu ilse son dolu hücreyi referans alıp
(2,1) ifadesiyle 1 satır altında ve aynı sütundaki hücreye yazar.

Sorunuza cevap verebilmek neyi nereye yazmaya çalıştığınızı anlamak lazım.

 

[TRuNsouL]

Hocam açıklama için teşekkür ederim. Veriyi hücreye ekleme mantığını şimdi anladım.
a5.Range("A4").Value = TextBox7.Value & " " & unvan.Value & " " & sicilno.Value & " " & adsoyad.Value
a5.Range("I2").Value = dosyano.Value
a5.Range("B3").Value = ComboBox4.Value
a5.Range("H2").Value = TextBox4.Value
Açıklamanızdan sonra kodu bu şekilde çevirdim şimdi istediğim veri istediğim hücreye ekleniyor. (End(3)(2,1) nasıl kullanılacağını bilememiştim.
Son olarak "A4" hücresine eklenen verilerin sadece ilk harflerinin büyük gerisinin küçük olmasını nasıl sağlayabilirim ?

 

[ÖmerFaruk]

a5.Range("A4").Value = UCase(Left(TextBox7.Value, 1)) & Mid(TextBox7.Value, 2, Len(TextBox7.Value) - 1) & " " & unvan.Value & " " & sicilno.Value & " " & adsoyad.Value

 

[TRuNsouL]

İlginiz için teşekkürler hocam.