Hücreden Koşullu bir biçimde Veri alma

[Yardımedin]

Hücreden Koşullu bir biçimde veri alma

1-) Excelde "G70" ve "G71" Hücrelerinde, 2 hücrede'de rakam yazıyosa "G71" Hücresinde Yazan veriyi almak.
2-) Eğer "G70" Hücresinde Rakam, "G71" Hücresinde Kelime yazıyosa, sadece "G70" Hücresinde Yazan veriyi almak.
3-) Eğer 2 Hücrede'de Hiçbirşey yazmıyorsa, Hiçbir verinin alınmaması


Arkadaşlar Excel'e bu biçimde formül girmem gerek, ancak bunu nasıl yapacağımı bilmiyorum yardımcı olursanız sevinirim.

 

[Ömer BARAN]

Merhaba, sanırım istediğiniz böyle bir şey.

=EĞER(VE(G70="";G71="");"";EĞER(VE(G70>0;G71>0);G71;G70))

Ancak unuttunuz mu bilemiyorum ama bir seçenek daha var o da; G70'te KELİME, G71'de SAYI olma seçeneği.

 

[kayserciyes]

Koşula göre veri alama

https://drive.google.com/open?id=0Bz1LD1SLdL1OSFdNeTdObVYwTk0


resimde açıkladım yardımcı olan olursa sevinirim

Karşısında sıfır yazan isimleri tek hücrede birleştirecek
hem kodu hemde formülü grerek

Teşekkürler

 

[kayserciyes]

https://drive.google.com/open?id=0Bz1LD1SLdL1OSFdNeTdObVYwTk0

 

[Ömer BARAN]

Merhaba.
Resim ile çözüm bulmanız zor.

Örnek belgenizi burası veya burası gibi bir dosya paylaşım sitesine yükleyip, oradan alacağınız erişim bağlantı adresini foruma yazarsanız, sorununuzun daha çabuk ve net çözüme ulaşmasını sağlamış olursunuz.
.

 

[kayserciyes]

http://s3.dosya.tc/server5/tk9i3e/A_GORE_gore_verileri_tek_bir_hucreye_alma.jpg.html


Dediğiniz yere yükledim umarım olmuştur
Teşekkür ederim

 

[Ömer BARAN]

......
Resim ile çözüm bulmanız zor.
..............
.

Yukarıdaki mesajda yazmıştım.

Tabi siz bilirsiniz.

 

[kayserciyes]

Dosya ekledim hocam umarım cevap alabilirim
tabi önce altın üye olmam gerekti

 

[ÖmerBey]

Öncelikle şunu belirtmeliyim: Cevap alabilmek için altın üye olmanız gerekmiyor, sadece biraz sabretmeniz gerekiyor. Ama yine de altın üyeliğiniz hayırlı olsun.
Dosyanız ektedir.
İyi çalışmalar...

 

[ÖmerBey]

Sonradan farkettim; bu da makro kodunuz:

Sub KOD()
son = 19
For a = 4 To 8
    For b = 4 To 17
        If Cells(b, a) = 0 Then
            Cells(son, a) = Cells(b, "C")
            son = son + 1
        End If
    Next
    son = 19
Next
End Sub

 

[Yardımedin]

Merhaba, sanırım istediğiniz böyle bir şey.

=EĞER(VE(G70="";G71="");"";EĞER(VE(G70>0;G71>0);G71;G70))

Ancak unuttunuz mu bilemiyorum ama bir seçenek daha var o da; G70'te KELİME, G71'de SAYI olma seçeneği.

Formülünüzde Herşey Çalışıyor ancak, benim 2.Madde'de bahsettiğim uygulanmıyor. Bunu düzeltebilirseniz gerçekten çok yardımınız dokunur bana.

 

[Ömer BARAN]

Aşağıdaki formülü kullanın.

=EĞER(VE(G70="";G71="");"";EĞER(VE(ESAYIYSA(G70);ESAYIYSA(G71));G71;EĞER(VE(ESAYIYSA(G70);EMETİNSE(G71));G70;"")))

 

[kayserciyes]

Gerçekden çok teşekkür ederim
benim bulduğum kodlar sayfalarca çıkmıştı bu çok basit ve tam cevap olmuş