• DİKKAT

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

Makro ile satır yüksekliği

  • Konbuyu başlatan Konbuyu başlatan turgayzeynep
  • Başlangıç tarihi Başlangıç tarihi
T

turgayzeynep

Misafir
1 sayfadan alınan veriler 2 sayfaya formül üla geçirdim fakat 23 satırdaki a b c d e f g h ı j birleştirdim otomatik olarak yazının boyutuna göre Makro ile satır yüksekliğini nasıl ayarlayabilirim
 
Merhaba,
Tek bir satır ise makroya gerek var mı bilemiyorum.
Kod 8.satırın yüksekliğini 40 yapar.

Kod: 
    Rows("8:8").RowHeight = 40
 
Hocam yazının boyutuna göre otomatik yapmasını istiyorum
 
Sadece sabıt 40 da kalmasın veriyi 1 sayfadan 2 sayfaya çekiyorum karakolda daki evraklar da kullancaz örnek aramın suçu hakarettir buna göre uyarlıycak sütır aralığını
 
Merhaba.

Kod: 
Rows(8).EntireRow.AutoFit
 
Otomatik satır yüksekliği ne zaman gerçekleşmesini istiyorsanız bu satırı oraya kopyalamalısınız.
Yani hangi kodlar çalıştıktan sonra olmasını istiyorsanız oraya kopyalamalısınız.

Yapamazsanız dosyanızı ekleyin ve ne zmana otomatik yükseklik olmasını istediğinizi belirtin biz yapalım.

Dosyanızı dosya.tc gibi bir siteye ekleyebilirsiniz.
 
Muzaffer Ali' Alıntı:
Otomatik satır yüksekliği ne zaman gerçekleşmesini istiyorsanız bu satırı oraya kopyalamalısınız.
Yani hangi kodlar çalıştıktan sonra olmasını istiyorsanız oraya kopyalamalısınız.

Yapamazsanız dosyanızı ekleyin ve ne zmana otomatik yükseklik olmasını istediğinizi belirtin biz yapalım.

Dosyanızı dosya.tc gibi bir siteye ekleyebilirsiniz.
Genişletmek için tıkla ...
Dosyayı ekleyemiyorim nasıl yapıldığını bilmiyodim tc gibi derken neyi kastediyorsuniz
 
İnternette dosya paylaşmak için siteler var herhangi birine ekleyebilirsiniz.
Örneğin: dosya.tc
 
turgayzeynep' Alıntı:

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle
s2.dosya.tc s2.dosya.tc
Genişletmek için tıkla ...
hocam paylaştım hocam yakalama ve kaba üstü aramada 10 satır ve 19 satır şüpheli Tanık hakları formunda 14 satır ve 23 satır sevk serbest bırakmada 34 satır haber vermede ise 17 göz6 sayfasında ise 15 satır otomatikman satırların arası Açılması lazım
 
Hocam soruma cvp vermediniz dosyayı paylaş dediniz paylaştım
 
Merhaba,
Sıkıntılı bir dosya, sol tarafı otomatik yapsanız sağ tarafta sıkıntı olur, sağ tarafı düzeltseniz sol taraf işi bozar.
Bence en iyisi el düzenlemek.

TC kimlik numarasının doğruluğunu yanlış yapıyorsunuz, aşağıdaki kodları ANA VERİ sayfasının kod bölümüne kopyalarsanız, doğru TC Kimlik numarasını girmiş olursunuz.

Kendi adıma bu kadar katkı sağlayım :)

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B2]) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = TCKimlikKontrol(Target.Value)
    
End Sub


Function TCKimlikKontrol(tcno) As Boolean

    Dim d(1 To 11) As Integer
    If Len(tcno) <> 11 Or Not IsNumeric(tcno) Then
        TCKimlikOnYazimKontrol = False
        Else
        For n = 1 To 11
            d(n) = Mid(tcno, n, 1)
        Next
        top1 = d(1) + d(3) + d(5) + d(7) + d(9)
        top2 = d(2) + d(4) + d(6) + d(8)
        
        cd1 = (10 - (((3 * top1) + top2) Mod 10)) Mod 10
        cd2 = (10 - (((3 * (top2 + cd1)) + top1) Mod 10)) Mod 10
        If cd1 = d(10) And cd2 = d(11) Then
            TCKimlikKontrol = True
            Else
            TCKimlikKontrol = False
        End If
    End If
    
End Function
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst