Excel'de bold olan hücrelerle olmayanlar sıralanabilir mi?

[izcik]

Değerli uzmanlarım, ben excel'de bold yani hücredeki sayı veya harfleri kalınlaştırma özelliğini çok kullanıyorum. Ayrıca dizme (sıralama) özelliğini de çok kullanıyorum.

Örnek dosyadaki gibi normal dizme değil de ; -mesela- önce kalınlaşmış olan hücreler sıraya dizilecek, sonra normal hücreler sıraya dizilecek. Bu mümkün mü?

Böylelikle kalın olan hücreleri bir bakışta görebilirim.

Saygılar.

 

[Merhum İdris SERDAR]

Değerli uzmanlarım, ben excel'de bold yani hücredeki sayı veya harfleri kalınlaştırma özelliğini çok kullanıyorum. Ayrıca dizme (sıralama) özelliğini de çok kullanıyorum.

Örnek dosyadaki gibi normal dizme değil de ; -mesela- önce kalınlaşmış olan hücreler sıraya dizilecek, sonra normal hücreler sıraya dizilecek. Bu mümkün mü?

Böylelikle kalın olan hücreleri bir bakışta görebilirim.

Saygılar.

Dosyanız ekte.

Eğer sıralama istiyorsanız bb'ye göre sıralama yapabilirsiniz.


.

 

[izcik]

Sağolun değerli yurttaş. İşimi görecek. Sonradan aklıma gelen bir şeyi denedim. Örnek: 6+5 (arada + işareti olunca ve kalın yapınca olacak mı diye.. oldu)
Teşekkürler

 

[halit3]

alternatif kod hesaplamayı B sutunda yapıyor

Option Compare Text
Sub sırala()
Dim i As Long
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending
Application.ScreenUpdating = False
sat = 1
For i = 1 To [A65536].End(3).Row
If Cells(i, "A").Font.Bold = True Then
Cells(sat, "B").Value = Cells(i, "A").Value
Cells(sat, "B").Font.Bold = True
sat = sat + 1
End If
Next i
For i = 1 To [A65536].End(3).Row
If Cells(i, "A").Font.Bold = False Then
Cells(sat, "B").Value = Cells(i, "A").Value
Cells(sat, "B").Font.Bold = False
sat = sat + 1
End If
Next i
sat = 1
For i = 1 To [B65536].End(3).Row
If Cells(i, "B").Font.Bold = False Then
Cells(sat, "A").Value = Cells(i, "B").Value
Cells(sat, "A").Font.Bold = False
Else
Cells(sat, "A").Value = Cells(i, "B").Value
Cells(sat, "A").Font.Bold = True
End If
Cells(i, "B").Value = ""
Cells(i, "B").Font.Bold = False
sat = sat + 1
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

 

[izcik]

Değerli Halit çok teşekkürler bu dosya da görevini yapıyor. Bir şey daha rica etsem mümkünse.

(Çok kullandığım için buna benzer vereceğim linkteki bir dosyayı değerli Evren Gizlen oluşturmuştu)

http://www.excel.web.tr/showthread.php?t=69456&highlight=kar%FD%FE%FDk+verileri&page=3


Birinci ihtiyacım şu değerli Halit3: Hani A sütununda sıralama oluşuyor ya (önce kalınlar sonra inceler; yanındaki sütunlar da bu sıralamaya göre sıralanmalı.

Önceki dosyaları Değerli uzmanımız Evren Gizlen oluşturmuştu. Sürekli kullanıyorum : )

Eğer yapamazsanız Evren Hocadan rica ederiz

 

[izcik]

Birinci ihtiyacım olan dosya 3 sütunu etkileyen dosya

http://www.excel.web.tr/attachment.php?attachmentid=66617&d=1242730602

İkinci ihtiyacım olan dosya da 256 sütunu etkileyen (yani sıralamayı yaparken bütün sütunları dahil ediyor)

http://www.excel.web.tr/attachment.php?attachmentid=66643&d=1242753348


Değerli Evren Gizlen Hoca ilk önce 3 sütunluk dosyayı oluşturmuştu. Daha sonra 256 sütunluk istediğimde onu da yapmıştı ve beni uyarmıştı: "256 sütunluk uzun sürer."

Ben de bazen 3 lük olanı bazen de 256 lık olanı kullanıyorum. Sıralamayı 3 lük olanda yapıp normal excel dosyama kopyalıyorum.

Eğer bu istediğim dosyada, 256 lık olanda herhangi bir bekleme süresi olmaz ise sadece 256 lık da işimi görür.

Ama ikisi de olursa daha iyi olur. Hem onu kullanırım hem de diğerini

Herşey için teşekkürler şimdiden

 

[halit3]

Değerli Halit çok teşekkürler bu dosya da görevini yapıyor. Bir şey daha rica etsem mümkünse.

(Çok kullandığım için buna benzer vereceğim linkteki bir dosyayı değerli Evren Gizlen oluşturmuştu)

http://www.excel.web.tr/showthread.php?t=69456&highlight=kar%FD%FE%FDk+verileri&page=3


Birinci ihtiyacım şu değerli Halit3: Hani A sütununda sıralama oluşuyor ya (önce kalınlar sonra inceler; yanındaki sütunlar da bu sıralamaya göre sıralanmalı.

Önceki dosyaları Değerli uzmanımız Evren Gizlen oluşturmuştu. Sürekli kullanıyorum : )

Eğer yapamazsanız Evren Hocadan rica ederiz

ben burada bir şey anlamadım ney neye göre sıralanacak dosyanın bu hali sıralanmış durumdamı anlayamadım bence bu dosyalar hangi konu başlığında ise o konu başlığı altında mesajlarınızı yenileyin anlayabilirsek yardımcı olmaya calışıyım bu konuya hakim olan arkadaşlar ver onlar sorununuza eminimki yardımcı olacaktır

 

[izcik]

Değerli Halit3 örnek dosya ekledim. listede satılan ürünleri (A sütununda) kalınlaştırdım.

Makro düğmesi ile dizmek istediğimde kalınlar ve inceler diziliyor , fakat B sütunundaki veriler tamamen siliniyor , diğer sütundaki veriler ise hiç etkilenmiyor; yani sıralamaya dahil olmuyor bile.. Oysa sıralama esnasında isim , fiyat , ürün ile ilgili düşünceler sütunlarının da hatta 256 sütunun tamamı etkilenmesi yani beraber sıralanması gerekir.


Örnek veriyorum. ÜRÜN KODU 3 kodlu mamül, makroyu çalıştırmadan önce TL fiyatı 2 TL olarak görünür iken,

makroyu çalıştırdığımda TL fiyatı kısmı beraber sıralanmadığı için 7 TL olarak görünüyor.

Dolayısıyla yanlış oluyor.

 

[Merhum İdris SERDAR]

Değerli Halit3 örnek dosya ekledim. listede satılan ürünleri (A sütununda) kalınlaştırdım.

Makro düğmesi ile dizmek istediğimde kalınlar ve inceler diziliyor , fakat B sütunundaki veriler tamamen siliniyor , diğer sütundaki veriler ise hiç etkilenmiyor; yani sıralamaya dahil olmuyor bile.. Oysa sıralama esnasında isim , fiyat , ürün ile ilgili düşünceler sütunlarının da hatta 256 sütunun tamamı etkilenmesi yani beraber sıralanması gerekir.


Örnek veriyorum. ÜRÜN KODU 3 kodlu mamül, makroyu çalıştırmadan önce TL fiyatı 2 TL olarak görünür iken,

makroyu çalıştırdığımda TL fiyatı kısmı beraber sıralanmadığı için 7 TL olarak görünüyor.

Dolayısıyla yanlış oluyor.

Seç, beğen al...


.

Tarafımdan dosyalar kaldırıldı.

 

[izcik]

Değerli Yurttaş Uzmanım çok teşekkürler ilginiz için. Üstteki Bold Sıralama dosyası hata verdi. Alttaki Bold Sıralama1 dosyası istediğim 256 sütunluk sıralamayı yapıyor. Zaten 256 sütunu da kapsaması gerekir, yoksa bütün hesap işlerim tamamen yanlış olur

Alttaki dosya kalın olmayanları gizliyor. Eğer zahmet olmazsa ince olanlarıda kalınların altında olacak şekilde yani hem kalınları, hem de onun altında inceleri (yer alacak şekilde) dosyayı oluşturabilir misiniz? (Yani kalınlar da inceler de görünsün ki ikisini de görebileyim)

Saygılar..

 

[Merhum İdris SERDAR]

Değerli Yurttaş Uzmanım çok teşekkürler ilginiz için. Üstteki Bold Sıralama dosyası hata verdi. Alttaki Bold Sıralama1 dosyası istediğim 256 sütunluk sıralamayı yapıyor. Zaten 256 sütunu da kapsaması gerekir, yoksa bütün hesap işlerim tamamen yanlış olur

Alttaki dosya kalın olmayanları gizliyor. Eğer zahmet olmazsa ince olanlarıda kalınların altında olacak şekilde yani hem kalınları, hem de onun altında inceleri (yer alacak şekilde) dosyayı oluşturabilir misiniz? (Yani kalınlar da inceler de görünsün ki ikisini de görebileyim)

Saygılar..

Birinci dosya istediğiniz yapıyor.

Nasıl bir hata verdi?

Benim açımdan son hakkınızı kullanıyorsunuz.:biggrin:

.

 

[izcik]

Eyvah :redface:

Değerli uzmanım. Birinci dosyanın makrosunu tıklayınca kod penceresi açılıyor ve "Sub sırala ()" kısmı sarı çizgi ile belirtiliyor. Çıkışta da compile... diye bir mesaj.

İkinci dosyada ise bir sorun yok. Sadece gizlenmeseler başka bir şey istemiyorum . Kalınların altında inceler sıralansın.


Hep isteye isteye iyice ezildik. İnsan mesaj yazarken yüzünü ateş basar mı yahu

 

[halit3]

Değerli Halit3 örnek dosya ekledim. listede satılan ürünleri (A sütununda) kalınlaştırdım.

Makro düğmesi ile dizmek istediğimde kalınlar ve inceler diziliyor , fakat B sütunundaki veriler tamamen siliniyor , diğer sütundaki veriler ise hiç etkilenmiyor; yani sıralamaya dahil olmuyor bile.. Oysa sıralama esnasında isim , fiyat , ürün ile ilgili düşünceler sütunlarının da hatta 256 sütunun tamamı etkilenmesi yani beraber sıralanması gerekir.


Örnek veriyorum. ÜRÜN KODU 3 kodlu mamül, makroyu çalıştırmadan önce TL fiyatı 2 TL olarak görünür iken,

makroyu çalıştırdığımda TL fiyatı kısmı beraber sıralanmadığı için 7 TL olarak görünüyor.

Dolayısıyla yanlış oluyor.

aşağıdaki kodu bir denermisiniz.

Sub Makro1()
AZBUYUK
Columns("A:A").Insert Shift:=xlToRight
Cells(1, 1).Value = "0"
Application.ScreenUpdating = False
sat = 2
For i = 2 To [b65536].End(3).Row
If Cells(i, "b").Font.Bold = True Then
Cells(i, "a").Value = sat - 1
sat = sat + 1
End If
Next i
For i = 2 To [b65536].End(3).Row
If Cells(i, "b").Font.Bold = False Then
Cells(i, "a").Value = sat - 1
sat = sat + 1
End If
Next i
AZBUYUK
Columns("A:A").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Sub AZBUYUK()
AD = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 1
RA = 2 & ":"
CA = RA & AD
Rows(CA).Select
ta = 1
YA = 2 & ":" & AD
Rows(YA).Sort Key1:=Cells(ta), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'MsgBox ("Sıralama Küçükden Büyüke yapıldı...")
End Sub

 

[izcik]

Değerli Halit ben yapamadım . Galiba iki tane makro içeriyor. Ekteki dosyanın üzerine siz yapabilir misiniz.

 

[halit3]

Değerli Halit ben yapamadım . Galiba iki tane makro içeriyor. Ekteki dosyanın üzerine siz yapabilir misiniz.

ekli dosyaya bir bakın

 

[izcik]

Farklı ve güzel bir dosya olmuş değerli Halit elinize sağlık.

 

[halit3]

Farklı ve güzel bir dosya olmuş değerli Halit elinize sağlık.

rica ederim iyi çalışmalar