Makro ile satır yüksekliği

[turgayzeynep]

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

 

[Necdet]

Merhaba,
Tek bir satır ise makroya gerek var mı bilemiyorum.
Kod 8.satırın yüksekliğini 40 yapar.

    Rows("8:8").RowHeight = 40

 

[turgayzeynep]

Hocam yazının boyutuna göre otomatik yapmasını istiyorum

 

[turgayzeynep]

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ı

 

[turgayzeynep]

Merhaba,
Tek bir satır ise makroya gerek var mı bilemiyorum.
Kod 8.satırın yüksekliğini 40 yapar.

    Rows("8:8").RowHeight = 40

Bu koda ne eklersem devamına otomatik yapar

 

[Muzaffer Ali]

Merhaba.

Rows(8).EntireRow.AutoFit

 

[turgayzeynep]

Merhaba.

Rows(8).EntireRow.AutoFit

Kodu yapıştırmam yeterlimi

 

[turgayzeynep]

Merhaba.

Rows(8).EntireRow.AutoFit

Hocam a b c d e f g h ı j sütunları birleştirilmiş bilginiz olsun kodu girdim ama kod çalışmadı birleştirilmiş sütunlar için farklı bir şey mi yapmamız gerekiyor yazılması gerekiyor kod çalışmıyor

 

[Muzaffer Ali]

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.

 

[turgayzeynep]

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.

Dosyayı ekleyemiyorim nasıl yapıldığını bilmiyodim tc gibi derken neyi kastediyorsuniz

 

[turgayzeynep]

Mail adresiniz varsa oradan göndereyim

 

[Muzaffer Ali]

İnternette dosya paylaşmak için siteler var herhangi birine ekleyebilirsiniz.
Örneğin: dosya.tc

 

[turgayzeynep]

İnternette dosya paylaşmak için siteler var herhangi birine ekleyebilirsiniz.
Örneğin: dosya.tc

Size ulaşırmı dosya

 

[turgayzeynep]

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

 

[turgayzeynep]

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

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

 

[turgayzeynep]

Hocam soruma cvp vermediniz dosyayı paylaş dediniz paylaştım

 

[Necdet]

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

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