Sipariş Takip formu

[Mech_Eng]

Merhabalar,

Sitede biraz araştırmama rağmen kodlar konusunda bi türlü mantığı anlayamadım, az da olsa visual basic biliyor olmama rağmen tam istediğim şeyi yapamadım...

Yardımcı olabilrseniz sevinirim... Yapmak istediğim şeyi ekte yazdım...
Yardımcı olacaklara şimdiden teşekkürler...

 

[Emir Hüseyin Çoban]

Merhaba, ekteki dosyayı inceleyiniz.

Yeni açılan sayfaya ALICI ismini girince bilgileri gelecektir.

 

[Huseyinkis]

Merhabalar,

Sitede biraz araştırmama rağmen kodlar konusunda bi türlü mantığı anlayamadım, az da olsa visual basic biliyor olmama rağmen tam istediğim şeyi yapamadım...

Yardımcı olabilrseniz sevinirim... Yapmak istediğim şeyi ekte yazdım...
Yardımcı olacaklara şimdiden teşekkürler...

Kodları ekteki gibi değiştirip denermisiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "Şubat" Then
    Sheets("Şubat").Select
Else
    Sayfa = Target.Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
If Intersect(Target, Sheets("Şubat").Range("C2:C1000")) Is Nothing Then Exit Sub
Sordum = MsgBox(Target.Value & " Adlı Sayfa Ekleniyor", vbYesNo, "www.excel.web.tr")
If Sordum = vbYes Then
Application.ScreenUpdating = False
Set S5 = Sheets("Firmalar")
For i = 2 To S5.Range("A65536").End(3).Row
If Target.Value = S5.Cells(i, "A").Value Then
Unvanı = S5.Cells(i, "A").Value
sehir = S5.Cells(i, "D").Value
ilgili = S5.Cells(i, "F").Value
TEL1 = S5.Cells(i, "G").Value
fax = S5.Cells(i, "I").Value
End If
Next
    
   Sheets("sablon").Copy After:=Sheets(Sheets.Count)
   ActiveSheet.Name = Target.Value
   Cells(4, "E").Value = Unvanı
   Cells(6, "E").Value = TEL1
   Cells(8, "E").Value = fax
   Cells(10, "E").Value = sehir
   Cells(14, "E").Value = ilgili
   
    MsgBox Target.Value & " Sayfası Açıldı", vbOKOnly, "www.excel.web.tr"
End If
End Sub

 

[Mech_Eng]

Çok teşekkür ederim Hüseyinkis bey... Bu sayede hem biraz kodlama yöntemini öğrenmiş oldum hem de istediğim şeyi tam olarak yaptım..

 

[Mech_Eng]

Yaptığınız yardımlar için tekrar teşekkür ederim, bir konuda da yardıma daha ihtiyacım var benim için zor bir şey bunu yapmak ama eminim sizin açınızdan çok basittir.. verdiğiniz kodlar sayesinde her bir sipariş için yeni bir sayfa oluşturabiliyorum. Buraya kadar herşey istediğim gibi fakat ufak bi eklentiye ihtiyacım var. Her açtığım sayfadaki malzemeleri tek bir sayfada alt alta sıralamak istiyorum malzeme içeriklerini alt alta görmek için.... Bununla ilgili bir örnek sayfa oluşturdum ve ekledim inceleyip yardımcı olabilirseniz sevinirim.

 

[Mech_Eng]

yardım edebilecek birisi var mı acaba?

 

[Mech_Eng]

Sanırım bunun bir çözümü yok benim bulamamış olmam normal o zaman )

 

[bayramtekin]

teşekkür arkadaşlar çok işime yarayacak.
ya bu teknolejinin canın yerim ben