Eğer komutu mu?

[hezarpare]

Üstadlar bir sorum var. Yaptığım çalışma kitabında d2 hücresi son kayıt saatini tutuyor ben istiyorum ki d2 hücresi 08:00-18:00 arasında olursa d3 hücresi kullanıcı 1, d2 hücresi 22:00-08:00 olursa d3 hücresi kullanıcı 2 yazsın. Bunu nasıl yapabilrim?

 

[Ömer]

Merhaba,

Küçük bir örnek ekleyerek dosya üzerinde açıklayınız..

.

 

[hezarpare]

üstadım dosya ekte. database sayfasında dediğim işlemleri göreceksiniz.

 

[Ömer]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [database!c2] = Format(Now, "dd/mm/yyyy")
    [database!d2] = Format(Now, "hh:mm")
 
        If Format(Time, "hh:mm") >= "08:00" And Format(Time, "hh:mm") <= "18:00" Then
            [D3] = "[COLOR=red]Kullanıcı1[/COLOR]"
        Else
            [D3] = "[COLOR=blue]Kullanıcı2"[/COLOR]
        End If
    
    ActiveWorkbook.Save
    Application.Quit
End Sub

İstediğiniz bu mu?

.

 

[hezarpare]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [database!c2] = Format(Now, "dd/mm/yyyy")
    [database!d2] = Format(Now, "hh:mm")
 
        If Format(Time, "hh:mm") >= "08:00" And Format(Time, "hh:mm") <= "18:00" Then
            [D3] = "[COLOR=red]Kullanıcı1[/COLOR]"
        Else
            [D3] = "[COLOR=blue]Kullanıcı2"[/COLOR]
        End If
    
    ActiveWorkbook.Save
    Application.Quit
End Sub

İstediğiniz bu mu?

.

Üstadım bu formülü dosyaya uygulayamadım. Bunu formülle çözmenin yöntemi varmıdır?

 

[Ömer]

=EĞER(VE(D2>=--"08:00";D2<=--"18:00");"Kullanıcı1";"Kullanıcı2")

Denermisiniz..

.

 

[hezarpare]

=EĞER(VE(D2>=--"08:00";D2<=--"18:00");"Kullanıcı1";"Kullanıcı2")

Denermisiniz..

.

ÜStadım ben senin canın yerim eline sağlık, Allah razı olsun.
Peki bir soru daha sorsam çok olurmuyum?
Elimizdeki bu dosyada her ay için bir sayfa açtım. Örneğin "Ekim, ST" sayfasında rapru güncelle butonunu gördünüz. Bu butonun altına bir buton daha koysam ve bu butona basınca benim belirlediğim hücre aralığını yazdırsa bunu nasıl yapabilrim?

 

[Ömer]

Rica ederim, işinize yaradığına sevindim.

Sub Alan()
On Error GoTo Son
bilgi = "Aralığı A1:F30 Şeklinde Giriniz"
Yazdır = InputBox("Yazdıracağınız Alanı Seçiniz", bilgi)
ActiveSheet.PageSetup.PrintArea = Yazdır
ActiveWindow.SelectedSheets.PrintOut
Son:
MsgBox bilgi, vbInformation, "Dikkat"
End Sub

İstediğiniz bu mu?

.

 

[hezarpare]

Üstat hr42 ile hz91 hücreleri arasına rapor yazdım bunu verdiğiniz komutla butona uygulamaya çalışdım ama beceremedim

 

[Ömer]

Benim yazdığım kod da yazdırma alanını kendiniz belirliyorsunuz, yani kodları değişmeden kullanmanız gerekir. Butona basınca yazdırma alanına;

HR42:HZ91

yazmanız yeterli olacaktı.

Eğer yazdırma alanınız sabit ise aşağıdaki gibi kullanınız..

Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$HR$42:$HZ$91"
ActiveSheet.PrintOut
End Sub

.

 

[hezarpare]

Benim yazdığım kod da yazdırma alanını kendiniz belirliyorsunuz, yani kodları değişmeden kullanmanız gerekir. Butona basınca yazdırma alanına;

HR42:HZ91

yazmanız yeterli olacaktı.

Eğer yazdırma alanınız sabit ise aşağıdaki gibi kullanınız..

Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$HR$42:$HZ$91"
ActiveSheet.PrintOut
End Sub

.

EVET ÜSTADIM ELİNE SAĞLIK TAM İSTEDİĞİM GİBİ. Teşekkürler, Allah razı olsun. Bir daha ki soruda görüşmek üzere