Araç Formu Yardım

[ALTINYAYLA]

selamlar üstadlar
ekteki şekilde bir çalışma yapmaya çalışıyorum bu form elamanlarindaki verileri sirayla sayfa 1 e buton ile kaydetmeye calisiyorum ust kisimdaki plaka vs olduğu kutucuk hepsi textbox ile kayit edip cikti almaya calisiyorum yardimci olursaniz sevinirim
tarih tarih alt alta

İndir TESTS

Dosyayı indir TESTS

dosya.co

 

[ALTINYAYLA]

yardımcı olabilecek kimse yokmu

 

[muratgunay48]

yardımcı olabilecek kimse yokmu

Plaka ile sayfa çağırarak, plaka ekleyerek, her araç için bir sayfa açarak çok kapsamlı bir dosya hazırlayabilirim. Bana şablonda, yani yeni sayfa açınca ana hat olarak ne istiyorsunuz yazarsanız, ya da tek excel sayfası atarsanız.

 

[ALTINYAYLA]

Hocam ilginiz için teşekkürler öncelikle.
arac kabul veya exper raporu olarak tek sayfa olacak doldurulacak kısımlar input şeklinde olacak kayıt tuşuyla bunları sayfa2 ye tarihe göre ve her araç alt alta olacak şekilde kayıt edebilirse mükemmel olur

 

[ALTINYAYLA]

[QUOTE = "muratgunay48, gönderi: 1065938, üye: 167085"]
Plaka ile sayfa çağırarak, plaka ekleyerek, her araç için bir sayfa açarak çok kapsamlı bir dosya hazırlayabilirim. Bana şablonda, yani yeni sayfa açınca ana hat olarak ne istiyorsunuz yazarsanız, ya da tek excel sayfası atarsanız.
[/QUOTE]
Hocam ilginiz için teşekkürler öncelikle.
arac kabul veya exper raporu olarak tek sayfa olacak doldurulacak kısımlar input şeklinde olacak kayıt tuşuyla bunları sayfa2 ye tarihe göre ve her araç alt alta olacak şekilde kayıt edebilirse mükemmel olur

 

[1Al2Ver]

Sayın ALTINYAYLA1, merhaba,

Foruma dosyanızı eklemenizi öneririm, eklenen dosyayı burada incelemek daha pratik ve güvenlidir,

Teşekkür ederim.

 

[ALTINYAYLA]

Hocam selamlar ek'teki gibidir.

 

[muratgunay48]

[QUOTE = "muratgunay48, gönderi: 1065938, üye: 167085"]
Plaka ile sayfa çağırarak, plaka ekleyerek, her araç için bir sayfa açarak çok kapsamlı bir dosya hazırlayabilirim. Bana şablonda, yani yeni sayfa açınca ana hat olarak ne istiyorsunuz yazarsanız, ya da tek excel sayfası atarsanız.

Hocam ilginiz için teşekkürler öncelikle.
arac kabul veya exper raporu olarak tek sayfa olacak doldurulacak kısımlar input şeklinde olacak kayıt tuşuyla bunları sayfa2 ye tarihe göre ve her araç alt alta olacak şekilde kayıt edebilirse mükemmel olur
[/QUOTE]
Şablon sayfası olacak sayfa atacaktınız ama. O yüklediğiniz sayfa mı olacak. Bilgiler o kadar mı. Combobox menüleri o harfler mi. Çünkü şablon sayfası bir tane olacak. Yeni açılan sayfalar onun klonu olacak. Ana sayfa şu şekilde olacak. Ama şablon sayfa mükemmel olmalı.

 

[1Al2Ver]

Sayın ALTINYAYLA1 merhaba,

Yanlış anlamadıysam eğer, makro ile şöyle bir yol izlene bilir,

"AA1" hücresine ; Alınacak alan olarak, "A1:W33",

"AA2" hücresine ; C\EXPERTİZ\ ,

"AA3" hücresine ; =E2, diyerek plaka yazılır,

1) "Table 1" sayfasındaki veri, .jpg formatına çevrilip, bir klasöre (örneğin C:\EXPERTİZ\ klasörüne) "E2" deki plakaya göre kayıt edilir,

2) Klasöre kayıt edilen .jpg formatındaki resim, diğer sayfada, belirlenen bir hücreden ( örneğin "B1") açılır kutu ile seçilir veya elle girilir,

3) "B3" e gelen resim, ayrı bir kod ile yazdırılır,

Aşağıdaki kod ile "Table 1" deki resmi, C:\EXPERTİZ klasörüne aldım, ancak resim boş bir çerçevede geldi,

Değerli üstatlar bu sorunu çöze bilir, böylece siz ve bende faydalanmış olurum,

Sub jpg_olarak_kaydet()

Application.ScreenUpdating = False
On Error Resume Next

  Dim objTemp As Object
  Dim chtMyChart As Chart
  Dim rngImg As Range
  aralıkk = [aa1]
  yol_isim = [aa2] & [aa3] & ".jpg"
  Set rngImg = Range(aralıkk)
  rngImg.Copy
  Set objTemp = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
  objTemp.Select
  ActiveSheet.Paste
  objTemp.Delete
  With Selection
      .CopyPicture 1, 2
      Set chtMyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
  With chtMyChart
      .Paste
      .Export yol_isim '"C:\EXPERTİZ"
      .Parent.Delete
  End With
  .Delete
  End With
  MsgBox "BELİRLENEN ARALIK " & [aa3] & " .jpg olarak kaydedildi..."
  Set rngImg = Nothing
  Set objTemp = Nothing
End Sub

Teşekkür ederim.