Comboboxdan seçilen ismi A1 e yazsın

[Sa.NaL]

Merhaba benim sizden ricam combobox içinden seçilen ismin A1 hücresine yazılması için nasıl kod gerekir combobox verileri sayfa2den almak koşuluyla ama şimdiden tşkler

 

[canercamalan]

Bunun için comboboxa gerek yok veri doğrulamadan yapabilirsin.
Veri menüsünden veri doğrulamayı seçiyorsun ayarlar sekmesindeki izin verilen yazan yerden listeyi seç en alttaki Kaynak yerinede =Sayfa2!A:A yaz ok le bitti

 

[Sa.NaL]

ama ben yukarıda anlattığım gibi istiyorum yardımınız için çok tşkler

 

[Ömer]

Merhaba,

=DOLAYLI("Sayfa2!A"&Sayfa2!A25+18)

A1 hücresine yazabilirsiniz..

.

 

[Sa.NaL]

comboboxa makro atayarak yapma imkanımız varsa o kodu söylerseniz sevinirim bana gerçekten o yoldan lazım gerçek örneğime uyarlamam için

 

[uzmanamele]

merhaba
syn yurttas'ın çalışmasınız inceleyiniz.

http://www.excel.web.tr/f60/combobox-t30130.html

 

[Sa.NaL]

Okadar vaktim yok hocam sabah işe gidicem kodu söylerseniz sevinirim söylemessenizde yatar uyurum

 

[Sa.NaL]

yani şöyle olmazmı yapıorum ama olmuyor
Sub Açılan1_Değiştir()
[E110] = Cells(110 + Cells(109, "A"), "A")
End Sub

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[Sa.NaL]

hocam hala derdimi anlatamadım işimi görecek tarz yukarıda belirttim ama uygulayamıyorum hepsini ilk sayfaya koyunca oluyor sayfa 2den verileri çağırınca olmuyor

 

[Ömer]

comboboxa makro atayarak yapma imkanımız varsa o kodu söylerseniz sevinirim bana gerçekten o yoldan lazım gerçek örneğime uyarlamam için

Sub Açılan1_Değiştir()
[A1] = Sayfa2.Cells(18 + Sayfa2.Range("A25"), "A")
End Sub

.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub Açılan1_Değiştir()
    Sheets("Sayfa1").Range("A1") = Sheets("Sayfa2").Cells(18 + Sheets("Sayfa2").Range("A25"), "A")
End Sub

 

[Sa.NaL]

Çok teşekkür ederim peki bunun başına ne koyarsam [A1] eşitlenen yazı büyük harflerle yazılır mesela samet SAMET olarak eşitlenir ve bu sizden son isteğim kafanızı ağrıttıysam kusura bakmayın çok tşkler

 

[Ömer]

Çok teşekkür ederim peki bunun başına ne koyarsam [A1] eşitlenen yazı büyük harflerle yazılır mesela samet SAMET olarak eşitlenir ve bu sizden son isteğim kafanızı ağrıttıysam kusura bakmayın çok tşkler

Sub Açılan1_Değiştir()
[A1] = Sayfa2.Cells(18 + Sayfa2.Range("A25"), "A")
cevir = UCase(Replace(Replace(Range("A1"), "i", "İ"), "ı", "I"))
Range("A1") = cevir
End Sub

.

 

[Sa.NaL]

Herkeze yardımlarınız için tşk ederim.Hayatınızda başarılar...