Bir sayının hücrelere otomatik yazdırılması.

[krediborcumvar]

Sayın hocalarım;
Örnek dosyada gösterildiği üzere, bir memurun hizmet süresine göre kadro ve derecesinin tabloya otomatik aktarılması hususunda yardımlarınızı bekliyorum. Saygılarımla...

 

[Mahir64]

Sayın hocalarım;
Örnek dosyada gösterildiği üzere, bir memurun hizmet süresine göre kadro ve derecesinin tabloya otomatik aktarılması hususunda yardımlarınızı bekliyorum. Saygılarımla...

Merhaba
Eki İnceleyin
Veri doğrulamayı inceleyin

 

[Necdet]

Merhaba,

Ne nereye yazılacak ne nerede bulunacak tam anlamadım.

 

[Mahir64]

Merhaba
3+1 dikkaet etmemişim,
Kadro dereceleriniz değişken mi neden 3 123 123 olmasını istiyorsunuz?
değişkenise örnek veriniz.
Mesala 13/3 tek bunu nasıl ayıracağız
mesala G7 yazarak aşağı çekin

=EĞERSAY($F$6:$F7;F7)

 

[krediborcumvar]

Arkadaşlar bir memur her yıl derece alır. Her 3 yılda bir de kademe alır. Yani; 25 yıllık bir memur çeşitli sebepleri bir kenara bırakıyorum, hizmetine 13'ün 2'sinden başlamışsa 25. yılında atıyorum 5'in 3'ü olur. İşte her yıla isabet edecek olan kadro ve derece rakamlarının tablosunu yapmaya çalışıyorum.

 

[Necdet]

Derece / Kademe Hesaplama

Merhaba,

Makrolu çözüm için Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.
Fonksiyonlarla olan çözümü de inceleyebilirsiniz.

Sub Hesapla()
    Dim Kadro   As Integer, _
        Derece  As Integer, _
        i       As Integer, _
        Yıl     As Integer
 
 
    If Not Application.WorksheetFunction.CountA(Range("B3:D3")) = 3 Then
        MsgBox "Yıl, Derece ve Kademeyi Doldurunuz"
        Exit Sub
    End If
 
    Application.ScreenUpdating = False
    Range("A6:H50").ClearContents
 
 
    Kadro = [C3]
    Derece = [D3]
    i = 5
    Do
        Yıl = Yıl + 1
        Derece = Derece + 1
        If Derece > 3 Then
            Derece = 1
            Kadro = Kadro - 1
        End If
        i = i + 1
        Cells(i, "F") = Kadro
        Cells(i, "G") = Derece
        Cells(i, "H") = Yıl
    Loop Until Yıl = [B3]
End Sub

 

[Mahir64]

Soruyu tamamen yanlış yorumlamışım. Ama ilk mesajınızda ve dosyanızdan bunu anlamk zor.

 

[krediborcumvar]

Necdet YEŞERTENER kardeşim çok teşekkür ederim. Verdiğiniz her iki örnek de işime yaradı. Size başarı dolu mutlu bir hayat diliyorum. İlgilenen diğer arkadaşlarıma da sonsuz teşekkürler... Saolun)

 

[Necdet]

Necdet YEŞERTENER kardeşim çok teşekkür ederim. Verdiğiniz her iki örnek de işime yaradı. Size başarı dolu mutlu bir hayat diliyorum. İlgilenen diğer arkadaşlarıma da sonsuz teşekkürler... Saolun)

Sağolun, memur memurun halinden anlar :biggrin:

 

[taneryonder]

Gelde çık işin içinden !

KDV %18
BANKA MASRAFI %12
PEŞİN SATIŞ FİYATIM 1100 TL ( KDV DAHİL )

SORU ?

Bu ürünü kaç liraya satmalıyımki , pos makinasından kart geçildikten sonra %12 banka tarafından kesilerek elime yine 1100 TL geçmeli ve faturanında pos makinasından geçen rakama eşit olmalı ve tabii KDV den de zarar görmemeliyim, Yani Fatura bedeli / 1.18 = öyle bir sayı olmalıki bankaya verdiklerim + fazladan ödediğim kdv yi kurtarabilecek bir Fiyat olmalı.