hücrede yazılanı başka bi sayfada yazma???

[udentr2002]

hocam pek anlatamadım başlıkta sanırım bu yüzden ekli dosyada anlattım yapabilme şansımız varmı acaba ???

 

[udentr2002]

yardım lütfen

Bu kouda yardım edebilecek bi arkadaş yokmu lütfen yapabilme imkanımız yoksada söyleyebilirsiniz

 

[udentr2002]

Sayın Üstadlarım

Hala soruma bir cevap alamadım eğer yapabilme imaknımız yoksada söyleyebilrsiniz LÜTFEN

 

[udentr2002]

LÜtfennn

Arkadaşlar kaç gün oldu cevap alamadım lütfen bakabilrmisiniz eğer yapamayız derseniz en azından bşka bi yöntemle çözmeye çalışıcam çok önemli benim için lütfen ilgilenirseniz çok makbule geçecekk

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeyi yaptım. Veri sorgulaması yapılan sayfalarda A sütununa ekleme yaparak yardımcı bir sütun oluşturdum. VERİ isimli sayfanıza alınacak AÇIKLAMA bilgilerini A sütununu kullanarak aldırdım. Bundan sonraki veri kayıtlarınızıda bu şekilde yaptığınız sürece formül problemsiz çalışacaktır. Umarım faydası olur.

 

[udentr2002]

Sn Hocam

Öncelikle Çok çok teşekkür ederim. Gerçekten çok uğraşmışsınız Allah razı olsun emeğinize sağlık. güzelde olmuş. Hocam yanlız bi sorun çıkıyor oda şu Sizin eklediğniz satırda hücrebirleştirmeleri yapmışsınızya onları tam olarak kullanamıyorum sebebini ise ekli dosya göndererek anlattmaya çalıştım ordada göreceksiniz o bilgileri form aracılığı ile gitiyorum. ayrı bi Veri sheeti açıp aynı şeyleri oraya kaydetmemin sebebide sadece Kayıtlarımı arayabilmek için ekli dosyayı incelerseniz daha iyi alarsınız sadece sizin gönderdiğniz formülü kulllanırken ürün adı dozu ve istenilen bilgiler hücrelerini birleştirdiğiniz yerde altına başka bi kayıt eklediğimde onu doğru şekilde birleştirmiyor tekrar sizi yoracağım ama lütfen ekli dosyayı incelerseniz çok sevineceğim Formda yapmak istrediklerimi yaptım buda lazım olan son nokta bunuda yapabilrsek formum tamamlanmış olacak vede bu sayede buradaki arkadaşlarımlada paylaşmış olacağım belki birinin daha işine yarayabilir. Şimdiden teşekkür ederim Gerçekten o formül için çok uğraştığınız belli Allah razı olsun

 

[udentr2002]

Bu arada

yaptığım programda acemliğimden dolayı kodları uzun uzun yazmak zorunda kaldım bunuda belirtmek istedim.

 

[udentr2002]

Üstadlar

Kayıt aramada kullandığım formu yada mantığının başka bir şekli yada yöntemi varsada fikirlerinizi söylerseniz belki böylede yardımcı olabilrsiniz formu incelerseniz mantığını anlayabilirsiniz ve eğer kayıt aramayı başka bir şekilde yapabilme fikrininizde varsa söylerseniz çok sevinirim lütfen yardımlarınızı bekliyorum bir önceki ekli dosyamda program var incelermisiniz lütfen

 

[udentr2002]

COST_CONTROL hocam

tekrar gönderdiğim dosyayı inceleyebilirmisin Lütfen

 

[udentr2002]

sayın hocam

İnceleyebildinizmi dosyayı???

 

[udentr2002]

Cost_control Üstadım

lütfen dosyayı inceleyebilirmisiniz hala tamamlayamadım programımı lütfen yardım ederseniz çok mutlu olacağım

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızı inceledim. Kullanmış olduğunuz koşullü biçimlendirmeler birbirine karışmış gibi görünüyor. Size tavsiyem hepsini kontrol etmeniz. (Bunlar ileride size problem çıkarabilir.) "Kaydet" butonunuzda kullandığınız kodu aşağıdaki ile değiştirin.

Bu işlemi yaptıktan sonra "Veri" isimli sayfanızda G3 hücresine aşağıdaki formülü uygulayıp deneyiniz. Umarım faydası olur.

=EĞER(EYOKSA(İNDİS(DOLAYLI("'"&$A3&"'!F3:F5000");TOPLA.ÇARPIM((KAÇINCI($B3&$C3&F3;DOLAYLI("'"&$A3&"'!H3:H5000");0)))));"";İNDİS(DOLAYLI("'"&$A3&"'!F3:F5000");TOPLA.ÇARPIM((KAÇINCI($B3&$C3&$F3;DOLAYLI("'"&$A3&"'!H3:H5000");0)))))

Kaydet butonu;

Private Sub CommandButton1_Click()
On Error Resume Next
If ComboBox1 = "" Then
MsgBox "Firma Adı Seçmelisiniz!!!"
Exit Sub
End If
Set s1 = Sheets(ComboBox1.Text)
If TextBox1.Text = "" Then
MsgBox "Ürününü Adını Giriniz!!!"
Exit Sub
ElseIf TextBox2.Text = "" Then
MsgBox "Etken Maddenin Adını ve Dozunu Giriniz!!!"
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox "Bakanlık Numarasını Giriniz!!!"
Exit Sub
ElseIf TextBox8.Text = "" Then
MsgBox "Bakanlık Tarihini Giriniz!!!"
Exit Sub
End If
e = s1.[e65536].End(3).Row
s1.Cells(e + 2, "a") = TextBox1.Text
s1.Cells(e + 2, "b") = TextBox2.Text
s1.Cells(e + 2, "c") = TextBox3.Text
s1.Cells(e + 2, "d") = TextBox4.Text
s1.Cells(e + 2, "e") = TextBox8.Text
s1.Cells(e + 3, "e") = TextBox5.Text
s1.Cells(e + 4, "e") = TextBox6.Text
s1.Cells(e + 5, "e") = TextBox7.Text
s1.Cells(e + 6, "e") = TextBox9.Text
s1.Cells(e + 7, "e") = TextBox10.Text
s1.Cells(e + 8, "e") = TextBox11.Text
s1.Cells(e + 9, "e") = TextBox12.Text
s1.Cells(e + 10, "e") = TextBox13.Text

Birleştir = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text
If TextBox8 <> "" Then
s1.Cells(e + 2, "H") = Birleştir & TextBox8.Text
If TextBox5 <> "" Then
s1.Cells(e + 3, "H") = Birleştir & TextBox5.Text
If TextBox6 <> "" Then
s1.Cells(e + 4, "H") = Birleştir & TextBox6.Text
If TextBox7 <> "" Then
s1.Cells(e + 5, "H") = Birleştir & TextBox7.Text
If TextBox9 <> "" Then
s1.Cells(e + 6, "H") = Birleştir & TextBox9.Text
If TextBox10 <> "" Then
s1.Cells(e + 7, "H") = Birleştir & TextBox10.Text
If TextBox11 <> "" Then
s1.Cells(e + 8, "H") = Birleştir & TextBox11.Text
If TextBox12 <> "" Then
s1.Cells(e + 9, "H") = Birleştir & TextBox12.Text
If TextBox13 <> "" Then
s1.Cells(e + 10, "H") = Birleştir & TextBox13.Text
End If: End If: End If: End If: End If: End If: End If: End If: End If
Set s2 = Sheets("Veri")
f = s2.[a65536].End(3).Row
s2.Cells(f + 1, "a") = ComboBox1.Text
s2.Cells(f + 1, "b") = TextBox1.Text
s2.Cells(f + 1, "c") = TextBox2.Text
s2.Cells(f + 1, "d") = TextBox3.Text
s2.Cells(f + 1, "e") = TextBox4.Text
s2.Cells(f + 1, "f") = TextBox8.Text
s2.Cells(f + 1, "h") = TextBox5.Text
s2.Cells(f + 1, "j") = TextBox6.Text
s2.Cells(f + 1, "l") = TextBox7.Text
s2.Cells(f + 1, "n") = TextBox9.Text
s2.Cells(f + 1, "p") = TextBox10.Text
s2.Cells(f + 1, "r") = TextBox11.Text
s2.Cells(f + 1, "t") = TextBox12.Text
s2.Cells(f + 1, "v") = TextBox13.Text

For a = 1 To 13
Controls("textbox" & a) = ""
Next
End Sub

 

[udentr2002]

Sayın hocam

verdiğiniz kodları uyguladım ama yapamadım acemiyim henüz belki çok şsey istemiş olacağım ama inanın çok önemli benim için bu arada gerçekten sizi yorduğumun farkındayım utanarakda olsa rica etsem dosyanın üzerinden değişiklikleri yapıp dosya ile gönderebilirmisiniz lütfen Allah razı olsun emeğiniz ve göstermiş olduğunuz sabrınız için

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz. Umarım faydası olur.

 

[udentr2002]

hocam

üstadım tekrar tekrar Allah razı olsun ama yeni kayıt girdiğimde olmuyor neden acaba???

 

[Korhan Ayhan]

Selamlar,

Eklediğim dosyayı indirip tekrar denedim ve kayıt işlemi yapılıyor. Sizde olmayan nedir anlamadım ! Detaylı açıklarsanız yardımcı olmaya çalışırım.

 

[udentr2002]

Değerli Hocam

Kayıt işlemi yapıyor o tamam ama kayıt firdikten sonra gelip firma sheetinde açıklama bölümüne "cevaplandı" veya "cevaplanmadı" yazdığımızda "Veri" sayfasında o ürünün katşısındada açıklama bölümlerine yazacaktı ya onu yazmıyor işte mesala örnekte sizin "A firması" na girdiğiniz "deneme kaydı " adlı bölüm varya onun istenilen bilgiler stünunun yanında yer alan açıklama bölümüne cevaplandı yada cevaplanmadı falan yazın göreceksinizki "veri " sayfasında yazmayacaktır. Bende olmuyor anlayamadım ?? Hocam sizi yoruyorum ama lütfen tekrar incelermisiniz vallahi utanarak söylüyorum

 

[Korhan Ayhan]

Selamlar,

14. başlıkta eklediğim örnek dosyayı güncelledim. Bu arada utanmanıza gerek yok, önemli olan probleminizin çözümlenmesi. (Ayrıca hata benden kaynaklanıyormuş.) Umarım bu haliyle işinize yarar.

 

[udentr2002]

Hocam

çok ama çok teşekkür ederim elinize canınıza sağlık çok güzel olmuş Allah razı olsun Çalışmalarınızda başarılar dilerim