Satır yüksekliği ve Kenarlık çizgisi

[LEOMAN57]

Merhabalar ,
Benim iki sorum olacak.
1. raporuma makro ile bazı düzenlemeler yaptım.ve istiyorum ki 1.Satırın yüksekliğini ben belirleyeyim ve makro her çalıştığında benim belirlemiş olduğum yüksekliği yapsın.

2. Raporumda örnek vermek gerekirse 150 adres var A ve O Sütunlarının arasındaki verileri Kenarlık çizgisi içine alabilirmiyim?

Makroda böyle bir kod varmı bilmiyorum ama yardımcı olursanız çok sevinirim.

Şimdiden Tşk.

 

[Necdet]

Merhaba,

Makro kaydet ile elde ettiğim kodları düzenleyerek buraya kopyalıyorum.

Option Explicit
Sub KenarCizgisi()
    Dim SonSatır As Long
    SonSatır = [A65536].End(3).Row
    
    With Range("A1:O" & SonSatır)
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
    End With
    Rows("1:1").RowHeight = 45
End Sub

 

[ziya]

Sn Yeşertener,
Bildiğim halde kullanmayı hiç "akıl edemediğim" makro kaydet ile soruna çözüm bulmanız inanıyorum pek çok konuyu çözmeme neden olacak. Siteyi ve hocaları izlemenin faydaları, bugün öğrendiğim bu çözüm 1 kitap okumaya bedel.
Selamlar,

 

[LEOMAN57]

Merhaba Necdet Bey ,

Vermiş olduğunuz kodu kopyalayıp çalıştırdım ancak hata verdi.yada ben yapamadım.Daha anlaşılır olsun diye raporu ekte sunuyorum.
Bir kaç ekleme daha rica ettim tabi eğer mümkünse ve sizi uğraştırıp yormayacaksa.

Şimdiden çok Tşk.

 

[Mx@Raid]

Kardeş Necdet beyin uygulamasında küçük bir değişiklikle uygulamayı ekliyorum. Satır yüksekliğini seçme özelliğini de ekledim.

 

[Mx@Raid]

İstersen hücrelerin çizgilerini belirlemek içinde makronun arasına şunu yazabilirsin.
Public Sub XlBuiltInDialog()
Application.Dialogs(xlDialogBorder).Show
End Sub

 

[LEOMAN57]

Merhaba MxRaid ,
Eline sağlık gerçekten istediğim gibi olmuş ama bir sey hariç bunada bir göz atabilirmisin rica etsem.
Ekli dosyada L Sütununda "11000LIK:2 6000LIK:1" bu sekilde bir açıklama var. 11000liğin adeti olan 2'yi N sütununa 6000liğin adeti olan 1 ise O sütununa aldırmak istiyordum mümkünse tabi Şimdiden tşk.

 

[Korhan Ayhan]

Selamlar,

Adetleri aşağıdaki kod ile ayırabilirsiniz.

Option Explicit
 
Sub ADETLERİ_AYIR()
    Dim X As Long, AYIR As Variant, Y As Byte
    
    Range("N2:O65536").ClearContents
    
    For X = 2 To Range("A65536").End(3).Row
    If Cells(X, "L") <> "" Then
    AYIR = Split(Cells(X, "L"), " ")
        For Y = 0 To UBound(AYIR)
        If InStr(1, AYIR(Y), "11000") > 0 Then
        Cells(X, "N") = Mid(AYIR(Y), InStr(1, AYIR(Y), ":") + 1, 15)
        ElseIf InStr(1, AYIR(Y), "6000") > 0 Then
        Cells(X, "O") = Mid(AYIR(Y), InStr(1, AYIR(Y), ":") + 1, 15)
        End If
        Next
    End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[LEOMAN57]

Korhan bey çok teşekkür tam istediğim gibi bir kod yazmışsınız Allah Razı olsun sizden.Bir ricam daha olacak . O ve N sütunundaki adetlerin toplamını M sütununa toplayabilirmiyiz?mümkünse ve sizi uğraştırıp yormayacaksa örnek dosya ekte. Şimdiden çok tşk.

 

[Mx@Raid]

Kardeş örnek olarak ekliyorum uygulamayı. Makrosuna bakarsan mantığının çok basit olduğu göreceksin.
Kolay Gelsin.

 

[LEOMAN57]

Mrb MxRaid,
Öncelikle ilgilendiğin Tşk.Ederim Saol ama Benmi yapamadım yoksa yanlış anlaşılma mı var acaba?
İstediğim tam olarak şöyle.
ÖRNEĞİN: N ve O sütunundaki adetleri M sütuna toplayarak almak istedim.Verdiğin kodu çalıştırmak istedim ama M sütununa toplam yapmadı.Bir göz atarmısın rica etsem. "Adetlerin hücre biçimleri genel"
Çok Tşk.

 

[LEOMAN57]

MxRaid Mrb.
Kodu çalıştırmak istedim ama olmadı.Örnek N ve O sütunundaki adetleri M sütununa toplamasını istemiştim ama M sütununa hiç bir veri gelmedi.Tşk.ilgin için.

 

[Mx@Raid]

Sn LEOMAN57 ben dosyanız üzerinde tekrar işlemi yaptığımda toplamları verdi.
Topla butonuna tıkladığını göreceksiniz. Daha önce vermiş olduğunuz dosyada eklenmiş haliyle yaptım ancak önce adetlerin ayrımını yapmanız lazım. bütün butonlar eklenmiş halde dosyayı yüklüyorum oradan bakabilirsiniz.
Eğer olmazsa tekrar bakarız.
Kolay gelsin.

 

[LEOMAN57]

MxRaid Çok Tşk.Şimdi oldu Allah razı olsun uğraştırdım seni ve diğer uzman arkadaşları da.hepinize çok tşk.Hepinizden allah razı olsun.

 

[Mx@Raid]

İşinize yaramasına sevindim. Kolay gelsin.

 

[Mx@Raid]

Arkadaşlar araştırıken elimdeki bir dökümanda bu koda rastladım.
Eğer Seçime bağlı alanı yazdırmak isterseniz;
Public Sub Yazdır()
Range("B9:G22").Select
Application.Dialogs(xlDialogPrint).Show Arg12:=1
End Sub
şeklinde makro oluşturursanız sadece seçili alanı yazdırıyor.

ActiveSheet.PageSetup.PrintArea = "B9:G22"
Application.Dialogs(xlDialogPrint).Show
bu şekilde yazdırma alanı belirleyerek sonuca gidiyorsunuz.
Ancak yazdırma alanı belirlemek yerine sadece seçili bir alanı yazdırmak isterseniz bir üstteki makroyu da kullanabilirsiniz.