• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Otomatik hücre kaydırma

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
Değerli uzman arkadaşlar ekte sunmuş olduğum Geliş sorgu çalışma sayfalarında renklendirmiş olduğum satırların yazı uzunluğuna göre otomatik olarak aşağıya doğru kaymasını istiyorum, ve GGD sayfasında siyah yazılmış yazlılarda kaydırma hücre rengini açık rası yapmak istiyorum.. yardımlarınız için simdiden teşekkür ederi....
 
Son düzenleme:
sn sinnernekolens dosyanız ektedir.Elimden geldigi kadar yardımcı olmaya çalıştım.Umarım işinizi görür.
 

Ekli dosyalar

arkadaşlar yaptığınızı anlatın lütfen
 
Değerli uzaman arkadaşlarımızdan yardım istiyorum..

Arkadaşım çok tşk ilgin için fakat benim istediğim o şekilde değildi

örnekteki sayfadan birkaç sorum olacak nasıl yapıldığı ile ilgili,

- sarı ve mavi hücrelerin içi yazı ile doldu örneğin ve yazıların yarısı görünmüyor benim yapmak istediğim yazıya göre satır kayacak ve sildiğim zaman küçülecek geri.

- tıklayarak geciç yaptığımız hücre içini sarı renkte nasıl gösterebılırız..

- bir hücreye küçük yazıyla yazsak bile hücredeki yazı nasıl otomatik olarak büyük yazıya çevrilir.

Değerli uzaman arkadaşlarımızdan yardım istiyorum..
 
Son düzenleme:
nasıl yapıldığınıda yazarsanız sevinirim.

şimdiden çok teşekkürler...
 
nasıl yapıldığınıda yazarsanız sevinirim.

şimdiden çok teşekkürler...
Merhaba,
Sorununuz makro kodları kullanılarak çözülmüştür. Aşağıdaki 1. kod yazdığınız metni büyük harfe çevirmeye yarar. 2. kod makro ile koşullu biçimlendirme devreye sokularark yapılmıştır; bu da istediğiniz hücreleri renklendirmeye yarıyor.
Diğer sayfa için istediğiniz satır kaydırmaya gelince, onun için koda ihtiyacınız yok. Belirttiğiniz hücreleri seçin, sağ tıklayıp Biçimlendirme seçeneğinden hizalayı seçin ve metni kaydır kutucuğunu işaretleyin. Sonrasında BİÇİM>SATIR>EN UYGUN YÜKSEKLİK sekmesini tıklayın. satır metninize göre kendini ayarlayacaktır.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("h14:h35,j14:j35")) Is Nothing Then Exit Sub
Target.Value = Evaluate("=UPPER(""" & Target & """)")
End Sub
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("h14:j35").FormatConditions.Delete
If Intersect(Target, Range("h14:j35")) Is Nothing Then Exit Sub
    With Target
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Interior.ColorIndex = 6
    End With
End Sub
 

Ekli dosyalar

çok teşekürler bilgiler için....

dediğiniz gibi yaptım fakat satır kaydırma işini beceremedim olmuyor malesef örnekde yardımcı olursanız sevinirim.
 
çok teşekürler bilgiler için....

dediğiniz gibi yaptım fakat satır kaydırma işini beceremedim olmuyor malesef örnekde yardımcı olursanız sevinirim.
Dosyanız üzerinde denedim, olmadı. Biraz araştırma yaptım; bu işlem birleştirilmiş hücrelerde işe yaramıyormuş.
 
yardımlarınız için çok teşekkürler..ellerinize sağlık
 
Birleştirilmiş hücrelerde "hücre kaydır" işlemi yapılabilirmi? Bilen arkadaşlardan yardım rica ediyorum.
Teşekkürler.
 
O özellik aktifleştirilebilir ama aktif olduğunda birleştirilmiş hücreler kendiliğinden büyümez. Tek hücre metni kaydır yapıldığında satıra sığmadığı durumda alt satıra geçip hücr ebüyür ama birleşmiş hücrelerde bu olmaz tek satır görünmeye devam eder ya da manuel hücre genişletmek gerekir.

Ancak bildiğim kadarıyla forumda makroyla bu işlemin yapılabileceğine dair konular paylaşılmıştı.
 
O özellik aktifleştirilebilir ama aktif olduğunda birleştirilmiş hücreler kendiliğinden büyümez. Tek hücre metni kaydır yapıldığında satıra sığmadığı durumda alt satıra geçip hücr ebüyür ama birleşmiş hücrelerde bu olmaz tek satır görünmeye devam eder ya da manuel hücre genişletmek gerekir.

Ancak bildiğim kadarıyla forumda makroyla bu işlemin yapılabileceğine dair konular paylaşılmıştı.
Teşekkür ederim.
 
Geri
Üst