Kullanılmış Sütunları Autofit


Excelde yaptıgınız macrolardan sonra sutunlariniz dar gelebilir hayut fazladan genis olmus olabilir bu durumlarda, otomatik boyutlanmasini istemezmiyiz tabiki isteriz, hemde ogrendigimiz kullanilmis satir sayisi kodunuda bir uygulamada gormus oluruz.. bunun icin gerekli kodlari inceleyelim…

VBA Kodlari

Sub Otomatik_Boyutla()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Columns.Count
Columns(i).EntireColumn.autofit
Next i
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Kullanılmış Sütunları Autofit” için 7 yorum

  1. Merhabalar,

    Dosyamda birden çok sayfa var. İlk sayfamda diğer sayfalarda olduğunu düşündüğüm bir kodu yazdığımda ona ait bilgileri getirsin istiyorum. Eğer yazdığım kod ile diğer sayfada olan kod birbiri ile aynı ise sorun yok. Ancak aynı satırda bu kod ve virgül ile ayrılmış yan yana kod varsa bunu bulamıyor. Kodları aşağıda yazdım nasıl yapabilirim?

    Yazdığım kod : 81803866
    Sayfalardan birinde şu şekilde bulunuyor : 81803866, 960E6102B,734460M91, 734460Z91, 81512, 81874, 82113, 82136
    Bu kod ortada ya da sonda olabilir.

    Sub kodgetir()

    Dim i As Integer
    Dim a As Integer
    Dim c As Integer
    For i = 2 To Sheets.Count

    For a = 1 To Sheets(i).[a50000].End(3).Row

    c = Sayfa1.[a50000].End(3).Row + 1

    If Sheets(i).Cells(a, “d”) = Sayfa1.Range(“n1”) Or Sayfa1.Range(“n1”) = Sheets(i).Cells(a, “d”) & “*” Then

    Sayfa1.Cells(c, 1) = Sheets(i).Cells(a, “e”)

    End If

    Next a
    Next i

    End Sub

    1. Merhaba Soykan Bey,

      If Sheets(i).Cells(a, “d”) = Sayfa1.Range(“n1?) Or Sayfa1.Range(“n1?) = Sheets(i).Cells(a, “d”) & “*” Then

      yerine

      If InStr(1, Sheets(i).Cells(a, “d”), Sayfa1.Range(“n1”)) > 0 Then

      seklinde deneyiniz.

      Bunu bir ongoru olarak sunuyorum satir sayilarinin esit olmamasi nedeniyle calismanizda yanlis bir karsilastirma soz konusu olabilirm eger yukaridaki sekilde cozemez iseniz, aradiginiz konuyu bize yazin formundan dosya ile birlikte bize ulastirabilirsiniz, iyi calismalar.

      1. Elinize sağlık süper. Ben daha sonra like ile bunu yapabildim. InStr kullanımını bilmiyorum. Bu konuda beni aydınlatırsanız çok sevinirim.
        Tekrar teşekkürler.

        1. Merhaba, Instr aslinda isnumber fonksiyonu gibidir, bir cumlenin icerisinde bir kelimenin kacinci harf sirasindan basladigini gostermektedir. isnumber(search(…)) kullanimina benzedigini soyleyebilirim yukarida size onerdigim islemin.

          Asagidaki linklerden instr ile ilgili bolumu ve ornek bir kullanimi incelerseniz; rahatlikla anlayabilirsiniz;

          http://www.exceltr.com/2011/08/vba-ile-kelimeler-uzerinde-islem/

          http://www.exceltr.com/2011/06/vba-instr-text-icerisinde-text-arama/

    1. Rica ederim, surekli takibinizi goruyorum ve seviniyorum, siteyi acarkende beklentim siteye 5-10.000 kisinin girisi degil 50-100 kisilik surekli gelisen ve gelistiren bir katilimdi; sanirim bunun gelisen kismina fazlasiyla ulastik, tesekkurler, iyi calismalar.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 6 =