[Çözüldü]  Puantaj Cetvelinde Devamsızlık işleme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Puantaj Cetvelinde Devamsızlık işleme

İleti#1)  Feylosof » 09 Oca 2021 01:08

iyi geceler;
Ekte ayrıntılı göstermeye çalıştığım dosyada textbox1'e yazılan tarihten başlamak üzere PUANTAJ sayfasında textboz2 sayısı kadar textbox3 teki değeri sağa doğru yazacak bir koda ihtiyacım var yardımını esirgemeyen herkese şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 45
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#2)  Miraç CAN » 09 Oca 2021 09:17

Deneyin:
Kod: Tümünü seç
Private Sub CommandButton5_Click()
With Me
    If Not IsDate(.TextBox1.Value) Then MsgBox "Hatalı Tarih...", vbCritical, "İşlem Sonu": Exit Sub
    If .TextBox2 = "" Or .TextBox3 = "" Then MsgBox "Bilgileri eksiksiz girin...", vbCritical, "İşlem Sonu": Exit Sub
    If CDate(.TextBox1) < CDate([F5]) Then MsgBox "Tarih tabloda bulunamadı...", vbCritical, "İşlem Sonu": Exit Sub
    Range(Cells(6, 6 + (CDate(.TextBox1) - CDate([F5]))), _
        Cells(6, 5 + (CDate(.TextBox1) - CDate([F5])) + Val(.TextBox2))) = .TextBox3.Text
End With
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 919
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#3)  okutkan » 09 Oca 2021 09:36

Dosya ekte.

Kod: Tümünü seç

Private Sub CommandButton6_Click()

For i = 6 To 37
Sheets("PUANTAJ").Cells(5, i).Select
    If Sheets("PUANTAJ").Cells(5, i).Text = Format(TextBox1, "dd.mm.yyyy") Then
        ilk = i       
        Exit For     
    End If
Next i

For j = 6 To 37
Sheets("PUANTAJ").Cells(5, i).Select
    If Sheets("PUANTAJ").Cells(5, j).Text = Format(TextBox3, "dd.mm.yyyy") Then
        son = j       
        Exit For
    End If
Next j

For k = i To j
Sheets("PUANTAJ").Cells(6, k).Value = TextBox2.Value
Next k

For s = 6 To 37
'DisplayFormat.
Cells(6, s).Select
If Sheets("PUANTAJ").Cells(6, s).DisplayFormat.Interior.Color = RGB(0, 176, 240) Then
Sheets("puantaj").Cells(6, s).Value = ""
End If
Next s
End Sub

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#4)  okutkan » 09 Oca 2021 09:43

Konuyu yanlış anlamış olabilirim.
Yazdığım kodda, textbox1 e girilen tarih ile textbox3 e girilen tarih arasındaki hücrelere textbox2 değerini giriyor.

Örnek; aşağıdakine göre 16.12.2020-28.12.2020 tarihleri arasına (mavi renkli hücreler hariç) 5 sayısını girecek.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#5)  Feylosof » 09 Oca 2021 13:53

Sayın Miraç Can kodunuz tam istediğim gibi olmuş çok teşekkür ederim.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 45
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#6)  Feylosof » 09 Oca 2021 13:54

Sayın Okutkan cevabınız için çok teşekkür ederim. Bu soruda istediğim tam olarak bu olmasa da kodunuzu arşivime alacağım çok faydalı olabilecek bir kod.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 45
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#7)  Feylosof » 09 Oca 2021 14:17

okutkan yazdı:Konuyu yanlış anlamış olabilirim.
Yazdığım kodda, textbox1 e girilen tarih ile textbox3 e girilen tarih arasındaki hücrelere textbox2 değerini giriyor.

Örnek; aşağıdakine göre 16.12.2020-28.12.2020 tarihleri arasına (mavi renkli hücreler hariç) 5 sayısını girecek.

Hocam sizin kodunuzu TEXTBOX1 deki tarihten TEXTBOX3 teki tarihe kadar TEXTBOX2 deki veriyi yazdırmak istesek kodu nasıl düzenlemeliyiz. Bu şekilde de çok güzel olur.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 45
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#8)  okutkan » 09 Oca 2021 15:14

Aşağıdaki kodu silmeniz lazım. Aşağıdaki kod harici diğer kodlar sizin istediğinizi gerçekleştirir. Yani tarih aralığına textbox2 deki sayıyı yazar. Aşağıda kod ise renkli olan hücreleri temizler.

Kod: Tümünü seç
For s = 6 To 37
'DisplayFormat.
Cells(6, s).Select
If Sheets("PUANTAJ").Cells(6, s).DisplayFormat.Interior.Color = RGB(0, 176, 240) Then
Sheets("puantaj").Cells(6, s).Value = ""
End If
Next s

Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#9)  Feylosof » 09 Oca 2021 16:03

okutkan yazdı:Aşağıdaki kodu silmeniz lazım. Aşağıdaki kod harici diğer kodlar sizin istediğinizi gerçekleştirir. Yani tarih aralığına textbox2 deki sayıyı yazar. Aşağıda kod ise renkli olan hücreleri temizler.

Kod: Tümünü seç
For s = 6 To 37
'DisplayFormat.
Cells(6, s).Select
If Sheets("PUANTAJ").Cells(6, s).DisplayFormat.Interior.Color = RGB(0, 176, 240) Then
Sheets("puantaj").Cells(6, s).Value = ""
End If
Next s


Çok teşekkür ederim. Bu haliyle çok yararlı oldu.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 45
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#10)  Miraç CAN » 10 Oca 2021 08:33

Alternatif:
Kod: Tümünü seç
    Range(Cells(6, 6 + (CDate(.TextBox1) - CDate([F5]))), _
        Cells(6, 6 + (CDate(.TextBox3) - CDate([F5])))) = .TextBox2.Text
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 919
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#11)  Feylosof » 11 Oca 2021 00:26

Miraç CAN yazdı:Alternatif:
Kod: Tümünü seç
    Range(Cells(6, 6 + (CDate(.TextBox1) - CDate([F5]))), _
        Cells(6, 6 + (CDate(.TextBox3) - CDate([F5])))) = .TextBox2.Text

Hocam böyle bir hata verdi. Hatam nedir acaba?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feylosof
Yeni Başlamış
 
Kayıt: 23 Tem 2019 19:25
Meslek: EĞİTİM
Yaş: 45
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Puantaj Cetvelinde Devamsızlık işleme

İleti#12)  Erkan Akayay » 11 Oca 2021 01:40

Miraç Bey daha üstteki örneğinde With - End With bloğunun kullanımını göstermiş.

Kod: Tümünü seç
With Me
Range(Cells(6, 6 + (CDate(.TextBox1) - CDate([F5]))), _
        Cells(6, 6 + (CDate(.TextBox3) - CDate([F5])))) = .TextBox2.Text
End With
Sorularınızı düzgün bir Türkçe ile detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Alıntı ile gereksiz şişirilen başlıkları takip edemiyorum. Lütfen Cevap Yaz butonunu kullanın.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot] ve 3 misafir

Bumerang - Yazarkafe