[Yardım]  Onay sayfası

Komut düğmesi. Komutlarınızı çalıştırmak için tıklayacağınız düğme modeli.

Onay sayfası

İleti#1)  alperener » 31 Mar 2017 12:48

Düzeltilmesi gerekenleri dosya üzerinde açıkladım Haziran ayı sayfasında.ANA SAYFA da sarı renkli yerler kopya edilecek ve HAZİRAN sayfasında renkli yerlerdeki ilgili yerlere eşitlenecek.Eşitlenecek hücre isimlerini yazdım.Kodlar PLAN YAP butonu içindeki kodların sonuna eklenecek.Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alperener
Siteye Alışmış
 
Adı Soyadı:salim yolcu
Kayıt: 29 Oca 2013 23:43
İleti: 342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: amasya

Cevap: Onay sayfası

İleti#2)  Erkan Akayay » 31 Mar 2017 13:10

Yardım edebilirmiyim diye dosyaya baktım ama kişiye özel soruymuş.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye

Cevap: Onay sayfası

İleti#3)  feraz » 31 Mar 2017 15:07

Evet Erkan hocam.

Böyle haberleşiyoruz sarık Selim hocamızla :)
Yinede yardım edebilirsiniz.
Gerçekten çok uzmansınız.
Belki kısa yoldan yaparsınız.Ben zaten akşam inceleyeceğim dosyayı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Onay sayfası

İleti#4)  feraz » 31 Mar 2017 21:33

sub Hazran kodunu olduğu gibi Private Sub CommandButton73_Click() yerin üstüne ekleyiniz.

Private Sub CommandButton73_Click() taki Call sayfakaydet in altına Call Hazran ekleyiniz.
Ay sayfalarını silmişsiniz.Bundan dolayı diğer kod hata veriyor.
Diğer Ay sayfalarını ekleyip deneyebilirsiniz.Yada Kodu tek başına deneyebilirsiniz.


Kod: Tümünü seç
Sub Hazran()


Set S2 = Sheets("ANA SAYFA")
Set S1 = Sheets("HAZÝRAN")

      S1.Range("D12").Value = S2.Range("V8").Value
      S1.Range("E12").Value = S2.Range("V9").Value
      S1.Range("F12").Value = S2.Range("AD8").Value
      S1.Range("G12").Value = S2.Range("AD9").Value
       
      S1.Range("D14").Value = S2.Range("V10").Value
      S1.Range("E14").Value = S2.Range("V10").Value
      S1.Range("F14").Value = S2.Range("V10").Value
      S1.Range("G14").Value = S2.Range("V10").Value
       
      S1.Range("H12").Value = S2.Range("AD11").Value
      S1.Range("H13").Value = S2.Range("AH11").Value
      S1.Range("H15").Value = S2.Range("V11").Value
      S1.Range("H16").Value = S2.Range("AD10").Value

If S1.Range("D12").Value = "" Then S1.Range("D14").Value = ""
If S1.Range("E12").Value = "" Then S1.Range("E14").Value = ""
If S1.Range("F12").Value = "" Then S1.Range("F14").Value = ""
If S1.Range("g12").Value = "" Then S1.Range("G14").Value = ""


S1.Range("A9:J9").UnMerge
S1.Range("A9").Value = S2.Range("E10").Value
S1.Range("A9:J9").Merge

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

Cevap: Onay sayfası

İleti#5)  alperener » 01 Nis 2017 00:15

Zafer tebrik ederim uyguladım çok güzel olmuş yalnız şöyle bir sorunla karşılaştım plan yap a tıkladığımızda HAZİRAN ayında eğer bu onay isimlerinin yeri boşşa sorun yok program çalışıyo fakat dolu ise üzerine kopye etmiyo en sağdaki veriyi saklar uyarısı geliyo daha sonrada dikey olarak kopyalıyo bence sanırım önce plan yap a tıkladığımızda Haziran ayında bu onay hücrelerini boşaltması gerekecek ondan sonra tekrar eşleştirme yapmalı.Haziran ayı onay hücrelerinin bölümünü nasıl sildirecez ve kodu nereye ekleyecez bunu halledersek olay bitiyo zafer.
Kullanıcı avatarı
alperener
Siteye Alışmış
 
Adı Soyadı:salim yolcu
Kayıt: 29 Oca 2013 23:43
İleti: 342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: amasya

Cevap: Onay sayfası

İleti#6)  feraz » 01 Nis 2017 00:30

set s1 in altına.

Kod: Tümünü seç
S1.Range("D12,E12,F12,G12,D14,E14,F14,G14,H12,H13, H15,H16").Value = ""
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum CommandButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe