Koşullu bilgi alma

[abbasonline]

Koşullu bilgi alma, hücreye formul girmeden yazdırmak için.

EKTEKİ DOSYAMA YARDIMCI OLURMUSUNUZ, Teşekkürler.

 

[fedeal]

dosyanız ekte,

 

[abbasonline]

çok sağolun, Teşekkür ederim, hücreye formul yazmadan rakamları yazdırma işleminde, devam edebilmek için makroya ne yazmam gerekli, makrodan hiç anlamıyorum, (ayrıca bu yazdırma işlemi formulle olurmu).

 

[fedeal]

sayfa1 sayfa sekmesine sağ tıklayın kod görüntüleye basın ordaki kodlar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'sayfadaki herhangibi bir hücre seçilince makro çalışmaya başlasın komutu
Cells(1, 1).Value = Cells(29, 13).Value ' 1.satır,1.sütun'a=29.satır,13.sütundaki deger yazılsın
Cells(2, 1).Value = Cells(30, 13).Value
Cells(3, 1).Value = Cells(31, 13).Value
Cells(4, 1).Value = Cells(32, 13).Value
End Sub

kırmızıyla yazılmış açıklama var mantıgını çözebilirsiniz diye örnek verdim.Cells(30, 13).Value yerine direkt "50" gibi sayıda yazabilirsiniz.

 

[abbasonline]

Teşekkürler, sağolasın.

 

[abbasonline]

fedeal bey, tanımlanmış bölümdeki pencere kapı yazan yerdeki rakamlar hep kendi bölümlerine yazılıyorduya, bunları aynı yere yazdırmak ve sadece üstünde bulunan kapı, pencere, duvar, cam gibi isimleri değişse mümkünmü acaba,

 

[fedeal]

2. mesajdaki dosyayı düzelttim.

 

[abbasonline]

Teşekkürler

 

[alugator]

Sayın fedeal veriler çağıracağımız veriler 2.sayfadaysa kodda ne gibi değişiklik yapabiliriz?

 

[fedeal]

=İNDİS($A$20:$E$27;KAÇINCI($N4;$A$20:$A$27;0);KAÇINCI($K$3;$A$20:$E$20;0))
bu formülden bahsediyorsak
=İNDİS(Sayfa2!$A$20:$E$27;KAÇINCI(Sayfa2!$N4;Sayfa2!$A$20:$A$27;0);KAÇINCI($K$3;Sayfa2!$A$20:$E$20;0))

 

[alugator]

Sayın fedeal
Esasında vba kodunu kastetmiştim.