Depremzede Kayıt Formu

[Mikdad]

Selamun Aleykum Dostlarım.
İlçemize Gelen depremzedelerin kayıtlarını yapan ve talep ettikleri malzemelere yönelik form çıkarmak için bir excel dosyası hazırladık.
bu excel dosyasını Google de E-Tabloda yaklaşık 15 bilgisayardan kayıt yapıyoruz.
yapmak istediğim şey ise şu;
Kaydı bitirdiğim zaman A stununda bulunan Dök linkine tıkladığım zaman Form Sayfasında ilgili alanlar doldurulacak ve yazıcı ön izleme gelecek.
yani
Dök Linkine tıkladığımda Data Sayfasında bulunan Tc Adı Soyadı Telefon Hangi İlden hangi ilçeden geldiği , Kişi Sayısı İlçedeki yakını adresi ve o sutunu ile x sutunu arasında talep etmiş olduğu yardım bilgileri FORM sayfasında ilgili alanlara kopyalanacak. ve direk o formun yazdırma ön izlemesi gelecek bizde dökeceğiz.
ama bunu google e tablolarda kullandığımız için vba kodları çalışmıyor. normal komutlar ile çalışacak bir şey yapılabilir mi?
Onun dışında Sıra No, TC ve Adı Soyadı Şeklinde kolay bir şekilde arama yapabileceğimiz otomatik flitreleme dışında bir çözüm var mıdır?
Depremzetelerin kayıtları yapıldığı için gerçekten aciliyeti olan ve çok önemli bir konu, şimdiden Allah hayrınızı kabul etsin inşAllah

 

[muratboz06]

Verileriniz google e-tablodan indirdikten sonra Data sayfasına kopyalayınız.
Önce Link Oluştur Makrosunu çalıştırınız. A sütununa hyperlink ekleyecektir.
Daha sonra döküm almak istediğiniz kişinin satırındaki Dök ifadesini tıklayınız.

Kontrol ediniz, hata veya başka talebiniz varsa iletiniz.

 

[Mikdad]

Verileriniz google e-tablodan indirdikten sonra Data sayfasına kopyalayınız.
Önce Link Oluştur Makrosunu çalıştırınız. A sütununa hyperlink ekleyecektir.
Daha sonra döküm almak istediğiniz kişinin satırındaki Dök ifadesini tıklayınız.

Kontrol ediniz, hata veya başka talebiniz varsa iletiniz.

Hocam Allah razı olsun . Bu güzel çalışma için bu çalışmayı e tablolarda yapma imkanı yok mu ? Her seferinde kopyalamak olmuyor . Çünkü kayıt yapıldıktan sonra form dökülecek depoya gönderilecek . Depoda o forma göre malzeme teslimi yapacak . Daha sonra fonu bize gönderecek Telsim edilen malzemeleri teslim edildi şeklinde isaretliyecegiz . Yani demek istediğim ilk kayıt esnasında bu formu dökmek lazım

 

[Emir Hüseyin Çoban]

.

Bir kolon daha ekleyip.
X olan satırı düşeyara formülü ile Form sayfasına aktarabilirsiniz.
Dök linki yerine X koyulacak.

.

 

[muratboz06]

Form sayfasında ilgili kişinin Sıra Nosunu yazarak bilgilerini forma getirebilirsiniz.
Ekteki dosyayı inceleyiniz.

 

[Mikdad]

Form sayfasında ilgili kişinin Sıra Nosunu yazarak bilgilerini forma getirebilirsiniz.
Ekteki dosyayı inceleyiniz.

Hocam harika olmuş Allah razı olsun tek eksiği keşke data sayfasındaki A sutunundaki Dök yazısına tıklayınca direk yazıcı önizleme sayfası acildaydi . Yani form sayfasında sıra numarasını seçmek yerine Data sayfasinda yani tek sayfada herşeyi yaosaydik zaman kaybını önlerdi.
Hocam birde depremzede TC si bir defa kayıt edilseydi. Aynı TC yi girip enter yapınca " Bu TC ..... Sıra numarası ile kayıt edilmiş " şeklinde uyarı verseydi

 

[Mikdad]

.

Bir kolon daha ekleyip.
X olan satırı düşeyara formülü ile Form sayfasına aktarabilirsiniz.
Dök linki yerine X koyulacak.

.

Nasıl yapabiliriz hocam formun üstünde istediğiniz değişikliği yapabilirsiniz ben verilerini ona göre aktarırım. Hatta Form sayfasını Data sayfasının en sağ tarafındaki hücrelere almak çözüm olacaksa o da yapılabilir

 

[Mdemir63]

Hocam harika olmuş Allah razı olsun tek eksiği keşke data sayfasındaki A sutunundaki Dök yazısına tıklayınca direk yazıcı önizleme sayfası acildaydi . Yani form sayfasında sıra numarasını seçmek yerine Data sayfasinda yani tek sayfada herşeyi yaosaydik zaman kaybını önlerdi.
Hocam birde depremzede TC si bir defa kayıt edilseydi. Aynı TC yi girip enter yapınca " Bu TC ..... Sıra numarası ile kayıt edilmiş " şeklinde uyarı verseydi

Selamlar
@muratboz06 hocamın gönderdiği dosyada ki Data sayfasının kod bölümüne aşağıdaki kodları yapıştırıp deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    tcNo = Target.Value
    say = WorksheetFunction.CountIf(Range("C:C"), tcNo)
  
    If say > 1 Then
        MsgBox "Bu TC Zaten Var", vbCritical, "DİKKAT!!!"
        Target.Clear
        Target.Select
    End If
End Sub

 

[Mikdad]

Hocam Data sayfasından bir kısa yol ile döküm alma şansı yok mu ?

 

[Mdemir63]

Zaten kimi istiyorsanız Tıkladığınızda Form görünüyor .Siz sadece yazdır diyeceksiniz.
Ama siz Dök kısmına tıkladığınızda direkt yazmasını istiyorsanız o zaman

Kodlardaki:

ActiveWindow.SelectedSheets.PrintPreview

yerine

ActiveWindow.SelectedSheets.PrintOut Copies:=1

bu kodu yazmalısınız

 

[Mikdad]

Zaten kimi istiyorsanız Tıkladığınızda Form görünüyor .Siz sadece yazdır diyeceksiniz.
Ama siz Dök kısmına tıkladığınızda direkt yazmasını istiyorsanız o zaman

Kodlardaki:

ActiveWindow.SelectedSheets.PrintPreview

yerine

ActiveWindow.SelectedSheets.PrintOut Copies:=1

bu kodu yazmalısınız

hocam Data Sayfasında A Sutununda bulunan dök yazısına tıkladığım zaman formun dökülmesini istiyorum. kişiyi kayıt ettikten sonra Form Sayfasına Gidip sağ üstte bulunan açılır kutudan numarasını bulup yazdırmam gerekiyor. buda süreci uzatıyor.
benim istediğim ise Data Sayfasında bulunan a sutununda hangi satırda isem onun dök linkine tıklayıp ön izleme ve sonrasında yazdırmasını yapmak
tabi her yeni bir satır eklediğimde de dök linkinin otomatik oluşması veya mesela 34. satırdayım F4 tuşunu veya buna benzer bir tusa tıklayınca form sayfasında gerekli yerlere gerekli bilgiyi yazıp önizlemeye alması.
birde form sayfasında gelen veriler resimde gösterdiğim şekilde talep kısımlarına işlenecek. yani karşılandımı sutuna değil
Hakkınızı helal edin lütfen. yardımlarınızı bekliyorum.

 

[Mdemir63]

Siz örneğin Data Sayfası Gıda sütununda 1 yazıyorsa Form Sayfası B17 hücresine X koymasını mı istiyorsunuz?

 

[halit3]

Daha önceden farklı bir kurum için yaptığım dosyayı ekliyorum belki işinize yarar.

 

[Mikdad]

Siz örneğin Data Sayfası Gıda sütununda 1 yazıyorsa Form Sayfası B17 hücresine X koymasını mı istiyorsunuz?

Hayır hocam yanlış sütuna kayıt oluyor solundaki sütuna kayıt olması gerekiyor .
Ama en büyük sorun data sayfasinda kaydı bitirdiğim zaman form sayfasına geçiş yapmadan bir kisayol tuşu ile form sayfasını dökmek istiyorum

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Umarım istediğiniz budur.
Allah kolaylık versin
Hepimize geçmiş olsun

 

[Mikdad]

Merhaba Arkadaşım,
Umarım istediğiniz budur.
Allah kolaylık versin
Hepimize geçmiş olsun

Evet hocam tam olarak istediğim bu ama ben bu excel dosyasını Google E Tablolarda kullandığım için şuan sizin yaptığınız çalışmıyor. bilgisayarda çalışıyor ama malesef e tablolara aktardığım zaman sizin yazdığınız kodlar devre dışı kalıyor.
Bu Yaptığınızın E-Tablolarda çalışan bir sistemini yapma imkanı var mı?

 

[Mikdad]

Daha önceden forklı bir kurum için yaptığım dosyayı ekliyorum belki işinize yarar.

hocam Allah razı olsun çok güzel bir şey yapmışsınız ama E-Tablolarda kullandığım için userform ve vb kodları malesef çalışmıyor.

 

[Tevfik_Kursun]

16. mesaja cevaptır
Yerinizde olsam, GoogleSheet'ten aldığım Ascii değerleri bu dosyaya kopyalar, buradan işlemlere devam ederdim. GoogleSheet'te baskı sorunları da yaşayabilirsiniz diye düşünüyorum, tabi yine de siz bilirsiniz.
İyi çalışmalar

 

[veyselemre]

Data sayfasının 1. satırını dondurun. Oraya bir buton ekle (Çizim den oluşturup) aşağıdaki scripti butona atayın. Data sayfasında A sütununda iken butona bastığınız zaman o satırdaki verileri 'Form' sayfasına aktaracaktır.

function aktar() {
  var ss = SpreadsheetApp.getActiveSpreadsheet();
  var dataSh = ss.getSheetByName("DATA");
  var aCell = dataSh.getActiveCell();
  if (aCell.getColumn() == 1 && aCell) {

    var sheet = ss.getSheetByName("Form");
    sheet.getRangeList(['B7:D7', 'C8:D8', 'C9:D9', 'C10:D10', 'C11:D11', 'B12:D12', 'C13:D13', 'B14:D14', 'B15:D15', 'B17:D26']).clear({ contentsOnly: true, skipFilteredRows: true });
    var veri = dataSh.getRange(aCell.getRow(), 1, 1, 24).getValues()[0];

    sheet.getRange("B7").setValue(veri[1]);
    sheet.getRange("C8").setValue(veri[2]);
    sheet.getRange("C9").setValue(veri[3]);
    sheet.getRange("C10").setValue(veri[5]);
    sheet.getRange("C11").setValue(veri[6]);
    sheet.getRange("B12").setValue(veri[11]);
    sheet.getRange("B13").setValue(veri[8]);
    sheet.getRange("C13").setValue(veri[10]);
    sheet.getRange("B14").setValue(veri[4]);
    sheet.getRange("B15").setValue(veri[12]);
    for (var i = 17; i < 27; i++) {
      var v = veri[i - 3];
      if (v == 1) v = "X";
      sheet.getRange(i, 2).setValue(v);
    }
  }
  sheet.activate();
}

 

[Mikdad]

Data sayfasının 1. satırını dondurun. Oraya bir buton ekle (Çizim den oluşturup) aşağıdaki scripti butona atayın. Data sayfasında A sütununda iken butona bastığınız zaman o satırdaki verileri 'Form' sayfasına aktaracaktır.

function aktar() {
  var ss = SpreadsheetApp.getActiveSpreadsheet();
  var dataSh = ss.getSheetByName("DATA");
  var aCell = dataSh.getActiveCell();
  if (aCell.getColumn() == 1 && aCell) {

    var sheet = ss.getSheetByName("Form");
    sheet.getRangeList(['B7:D7', 'C8:D8', 'C9:D9', 'C10:D10', 'C11:D11', 'B12:D12', 'C13:D13', 'B14:D14', 'B15:D15', 'B17:D26']).clear({ contentsOnly: true, skipFilteredRows: true });
    var veri = dataSh.getRange(aCell.getRow(), 1, 1, 24).getValues()[0];

    sheet.getRange("B7").setValue(veri[1]);
    sheet.getRange("C8").setValue(veri[2]);
    sheet.getRange("C9").setValue(veri[3]);
    sheet.getRange("C10").setValue(veri[5]);
    sheet.getRange("C11").setValue(veri[6]);
    sheet.getRange("B12").setValue(veri[11]);
    sheet.getRange("B13").setValue(veri[8]);
    sheet.getRange("C13").setValue(veri[10]);
    sheet.getRange("B14").setValue(veri[4]);
    sheet.getRange("B15").setValue(veri[12]);
    for (var i = 17; i < 27; i++) {
      var v = veri[i - 3];
      if (v == 1) v = "X";
      sheet.getRange(i, 2).setValue(v);
    }
  }
  sheet.activate();
}

hocam cizim yaptım bir tane ama script kodu ataması nasıl yapılıyor. onu bulamadım