Eğer

[dEmir1]

EĞER HATALIYSA diğer sütundakini alsın
Ekte açıklama yaptım umarım yardımcı olabilirsiniz.

 

[dEmir1]

Yardımlarınızı bekliyorum.
Hayırlı Cumalar

 

[systran]

sayfaya bir tane command buton ekleyin ve şu kodları içine yazıp, çalıştırınız.
C sütunundan başlar, #yok yazısı yoksa kodu U sütununa yazar ve bir sonraki satıra geçer.

ss = Sayfa1.Range("C10000").End(3).Row
For i = 3 To ss
    j = 3
    Do
        tmp_str = Sayfa1.Cells(i, j).Value
        If Not IsError(tmp_str) Then
            Sayfa1.Range("U" & i).Value = tmp_str
            Exit Do
        End If
    j = j + 2
    Loop Until j > 17
Next i

 

[dEmir1]

Peki bunu Formülle yapma imkanımız yok mu ?
Uğraştırıyorum sizleri ama
Aslında yapmak istediğim "C" Sütununda #yok var ise E Sütunundakini yaz böyle devam etmesi C-E-G-I-K-M-O-Q Mutlaka birinde kod var onu yazmasını istiyorum
Umarım anlatabilmişimdir.
EĞER(EHATALIYSA(C5);I5;"");"") böyle bir şey yaptım ama bunu bütün sütunlara uygulayamıyorum..

 

[systran]

yukarıdaki kod istediğini yapıyor, zaten yeterince düşey ara formülü var sayfanda.

 

[dEmir1]

Systran anlatamadım sanırım mazur görün.
Şöyleki C5'de de Yok Yazıyor ama ondan sonraki Sütunda da yok Yazıyor ondan sonraki Sütunda da I5'e gelene kadar YOK; I5'de istediğim kod var benim yazdığım eksik yani
Ben Direk C5'de yok git I5'dekini al dedim
yani aralarında diğer sütunları nasıl ekleyebilirim.
Aynı şekilde belki C5'de istediğim kod var diğerlerinde de var yada YOK
Bütün sütunları arasın hangisinde varsa onu yazsın istiyorum
Aslında karışık değil de ben anlatamıyorum. Kusura bakma.

 

[dEmir1]

Çok kısa bir örnek excel gönderdim.
Tşk ederim

 

[dEmir1]

Yardımlarınızı Bekliyorum..