diğer sayfadan veri alamıyorum

[ardaserim]

Sayın ustalarım;
yapmış olduğum listede aylık yeminli ve ba formu düzenledim.
Fakat firma ünvanı bölümüne firmanın adını yazdıktan sonra vergi dairesi ve vergi numarasını yazamıyorum.bu konuda yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

D2 hücresine yazarak yan ve alt hücrelere kopyalayınız..

=EĞER($C2="";"";DÜŞEYARA($C2;'VERİ SAYFASI'!$A:$C;SÜTUN(B1);0))

VERİ SAYFASI sayfasdında AKİDE KÖSEOĞLU (10 ve 11. satır) verisinin sonundaki fazladan boşluğu siliniz..

.

 

[ardaserim]

çok teşekkür ederim

 

[Mx@Raid]

Sn. Ömer bunu makroya uyarlarsak nasıl yazmamız lazım.

 

[Ömer]

Sn. Ömer bunu makroya uyarlarsak nasıl yazmamız lazım.

Sub Duseyara()
Set S1 = Sheets("YEMİNLİ VE BA")
Set S2 = Sheets("VERİ SAYFASI")
Alan = "A2:C" & S2.Cells(65536, 1).End(xlUp).Row
For i = 2 To S1.Cells(65536, 3).End(xlUp).Row
If S1.Cells(i, 3) <> "" Then
S1.Cells(i, 4) = Application.WorksheetFunction.VLookup(S1.Cells(i, 3), S2.Range(Alan), 2, 0)
S1.Cells(i, 5) = Application.WorksheetFunction.VLookup(S1.Cells(i, 3), S2.Range(Alan), 3, 0)
End If
Next
End Sub

.

 

[Mx@Raid]

Ömer bey teşekkür ederim.

 

[ardaserim]

ömer bey ben nerede hata yapıyorum bilemiyorum ama sürekli makro hatası veriyor. Nasıl yapmam gerekiyor.

 

[Ömer]

Hata mesajını bildirirmisiniz.

Eğer güvenlik ayarlarınız yüksek ise önce aşağıdaki işlemleri uygulayınız..

Boş bir excel sayfası açarak, Araçlar / Makro / Güvenlik ekranından Düşük ( önerilmezi) işaretleyerek tamam butonun basın ve çıkın. Çıkarken kaydetmenize gerek yoktur. Bu işlemi birkaç yapmanız yeterli olacaktır. Bu işlemden sonra tekrar dosyayı açıp deneyiniz..

.

 

[megaloman21]

arkadaslar ben de ürünlerin fiyat ve agırlıklarını userformda otomatik olarak gostermek istiyorum ancak beceremedim.yardımcı olursanız sevinirim..

 

[megaloman21]

arkadaslar lutfen yardımcı olur musunuz?

 

[Mx@Raid]

Sn. megaloman21 şu an senin form üzerinde uğraşıyorum, bittiğinde dosyana bakar ne gibi değişiklikler gerekiyorsa o noktadan sonra iletirsin. Dosyayı ekliyorum, buradan yola çıkarak yardım alabilirsiniz.

 

[halit3]

örnek olarak sevk edilen il e ait açılan komut düğmesine aşağıdaki kodu denermisiniz.
kendinize göre değiştirin veya ekleyiniz.


Private Sub ComboBox2_Change()
sat = ComboBox2.ListIndex + 3
ComboBox4.Text = Sheets("1").Cells(sat, "C")
TextBox17.Text = Sheets("1").Cells(sat, "E")
TextBox13.Text = Sheets("1").Cells(sat, "D")
End Sub