düşeyara bir alt satırı yaz

[dyrbkr]

Selamlar
Ekteki dosyayı yapamadım yardımcı olurmusunuz

 

[Merhum İdris SERDAR]

.

=INDIRECT("Sayfa1!C"&$A$1+ROW(A1))
=DOLAYLI("Sayfa1!C"&$A$1+SATIR(A1))

deneyin.

 

[dyrbkr]

çok teşekkür ederim

 

[özlemcik]

Merhaba

Patronum bana 8 tane ajanda verdi.
İçinde firma adı, görüşülen kişi adı ve telefonları var.
Bunları bilgisayarda yazıp liste haline getirmemi ve çıktısını kendisine vermemi istedi. Ajandadaki firma isimleri sıralı değil.
Ben bunları karışık yazdıktan sonra harf sıralamasını excel kendiliğinden yapabilir mi?
Yani "A" harfi ile başlayan firmaları alt alta
"B" harfi ile başlayan firma isimlerini alt alta düzeltmesi mümkünmüdür?

İçinden çıkılmaz bir durumdayım. İşimi kolaylaştıracak en ufak bilgi bile benim için çok önemli. Hepsini denemeye hazırım.

Saygılarımla.

 

[uzmanamele]

merhaba

listenizi tamamladıktan sonra tablo alanınızı seçin,
standart araç çubuğunda A-Z --> artan sıralama ile alfabetik sıraya koyabilirsiniz.

 

[qbilay06]

Patronum bana 8 tane ajanda verdi.
İçinde firma adı, görüşülen kişi adı ve telefonları var.
Bunları bilgisayarda yazıp liste haline getirmemi ve çıktısını kendisine vermemi istedi. Ajandadaki firma isimleri sıralı değil.
Ben bunları karışık yazdıktan sonra harf sıralamasını excel kendiliğinden yapabilir mi?
Yani "A" harfi ile başlayan firmaları alt alta
"B" harfi ile başlayan firma isimlerini alt alta düzeltmesi mümkünmüdür?

İçinden çıkılmaz bir durumdayım. İşimi kolaylaştıracak en ufak bilgi bile benim için çok önemli. Hepsini denemeye hazırım.

Saygılarımla.

girdiğiniz tüm bilgileri seçip , veri sekmesinden SIRALA komutunu kullanarak alfabetik olarak sıralama yapmanız mümkün.

 

[özlemcik]

Merhaba,

Sn.uzmanamele ve Sn.qbilay06
Mesajıma verdiğiniz cevaplar için çok teşekkür ederim sağolun.
Gerçekten söylediğiniz şey işe yaradı. İkisini de denedim aynı sonucu verdi.
Harf sıralaması kendiliğinden oldu.
Tekrar teşekkürler.

 

[özlemcik]

Tekrar Merhaba,

İzninizle Benim başka bir sorum olacak.
Hazırlamış olduğum listede küçük harf büyük harf dikkat etmeden yazmıştım.
Görüntü olarak güzel olmadığı için hepsini büyük harf yapmak istiyorum.
Bunun kısa bir yolu varmıdır acaba?

Dosya Ekte:

 

[Merhum İdris SERDAR]

İzninizle Benim başka bir sorum olacak.
Hazırlamış olduğum listede küçük harf büyük harf dikkat etmeden yazmıştım.
Görüntü olarak güzel olmadığı için hepsini büyük harf yapmak istiyorum.
Bunun kısa bir yolu varmıdır acaba?

Dosya Ekte:

Aşağıdaki kodları deneyin.

Sub buyukharf()
Dim Alan As Range
Dim c As Range
On Error Resume Next
Set Alan = Cells.SpecialCells(xlCellTypeConstants, 2)
For Each c In Alan
c.Value = UCase(c.Value)
Next c
End Sub



.

 

[Necdet]

Merhaba,

Hücrelerde Küçük - Büyük Harf Uygulamaları adlı linki de incelemenizi öneririm.

 

[özlemcik]

Merhaba,

Sayın: Yurttaş,
Kodlarla ilgili hiç bilgim olmamasına rağmen araştırarak vermiş olduğunuz kodu uyguladım ve işe yaradı.Hepsi büyük harf oldu.Öyleki e mail adresleri bile büyük harf oldu. Mail adreslerini tekrar küçültmek mümkünmü?
İlginize teşekkürler.


Sayın: Necdet Yeşertener,
Sizin önerdiğiniz link daha da işime yarayacak nitelikteydi çünkü ilk harf büyük diğerleri küçük olma şansıda vardı.Fakat linkteki kodları uyguladığım zaman makrolar çalışmadı.Güvenlik düzeyiyle alakalı bir sorun galiba.
Makroları çalıştırmak için ne yapmalıyım.
Bilgilerinize.

 

[Merhum İdris SERDAR]

Sayın: Yurttaş,
Kodlarla ilgili hiç bilgim olmamasına rağmen araştırarak vermiş olduğunuz kodu uyguladım ve işe yaradı.Hepsi büyük harf oldu.Öyleki e mail adresleri bile büyük harf oldu. Mail adreslerini tekrar küçültmek mümkünmü?
İlginize teşekkürler.

Hangi alanı büyük harf yapacaksanız önce seçin sonra makroyu çalıştırın.

Kodlar:

Sub Bharf()
Dim cell As Range
For Each cell In Selection.Cells
cell = UCase(Replace(Replace(cell, "i", "İ"), "ı", "I"))
Next
End Sub


.

 

[haso_excel]

Aşağıdaki kodlar işinize yarar umarım. Kendinize göre değiştirebilirsiniz.

Sub buyukharf()
'uppercase$'
Dim kucuk As Range
For Each kucuk In Range("a1:a5")
kuc = UCase$(kucuk)
kucuk.Value = kuc
Next kucuk

End Sub
Sub kucuk()
'lowercase
Dim buy As Range
For Each buy In Range("F2:F534")
buyuk = UCase$(buy)
buy.Value = buyuk
Next buy

End Sub

 

[haso_excel]

Başka bir kod

Sub kucuk()
Dim hcr As Range
For Each hcr In Range("A1:A" & Cells(65536, "A").End(xlUp).Row)
hcr.Value = LCase(hcr.Value)
'Lcase yerine Ucase yaptığınızda büyük olur
Next
End Sub

 

[Merhum İdris SERDAR]

Sayın haso_excel,

Bu kodlarınz ı / i , I/İ leri küçük / büyük harflere dönüştürüyorlar mı?

.

 

[haso_excel]

Kodu çalıştırın zannedersem olacak. Değişiklikleri kodla oynayarak yapabilir isniz.

Sub bosluk_at()
Dim hcr As Range
For Each hcr In Range("A1:A" & Cells(65536, "A").End(xlUp).Row)
hcr.Value = Replace(hcr.Value, "i", "ı")
Next
End Sub

 

[Merhum İdris SERDAR]

Kodu çalıştırın zannedersem olacak. Değişiklikleri kodla oynayarak yapabilir isniz.

Soruyu ben sormadım.

Ben sadece yukarıda yazdığınız kodların içinde i harfi ve ı harfi olanları büyük harfe dönüştürmediğini hatırlatmak istedim.

Keza son yazdığınız kodlar ne yapıyor?

Bu kodlarınız büyük harfe dönüştürüyor mu?


.

 

[haso_excel]

Kusura bakmayın ya haklısınız sanki size cevap veriyor gibi olmuş.

 

[özlemcik]

Merhabalar,

Ekteki world dosyasını excel dosyası yapmak ve harf sırasına göre düzenlemek istiyorum nasıl yapabilirim?
Yardımcı olursanız çok memnun olurum.
Teşekkürler.

 

[özlemcik]

Merhaba

Hala cevap gelmediğine göre ya ben anlatamadım ya zor bir soru oldu yada mesaj yazmak için yanlış bölgeyi kullanıyorum
Eğer yapılmayacak bir soru sorduysam bile iyi kötü cevap bekliyorum.
Saygılar...