Veri Doğrulamada veri seçince altına sütun açsın

[atillaciftci]

Merhabalar....

Ekteki excel dosyasında yapmak istediğimi anlattım ustalar bir el atarsa sevinirim...

 

[snx111]

İstek çoook galiba ;

veri dogrulama liste kutusu zaten var ?

3 sorun için hücreye = yazıp gerekli farklı sayfadaki "ı4" hücresine tıklar entere basarsanız o isteğinizde olur.

 

[atillaciftci]

Çok değil bee Ustalara bu işler çerezlik...

 

[Murat OSMA]

Sayfanın kod bölümüne yazıp deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B16" Then Exit Sub
    If Range("B16") <> "" Then
        Range("B17").Insert Shift:=3
    End If
End Sub

Not: Alta sütun açan ustayla tanışmak isterim...

 

[programer]

Not: Alta sütun açan ustayla tanışmak isterim...

 

[atillaciftci]

Ama benim 50 Taşeronum var 5 tanesini seçtiysem sadece o 5 tanesine I4 dekini yazsın istiyorum diğerlerine yazmasın

İstek çoook galiba ;

veri dogrulama liste kutusu zaten var ?

3 sorun için hücreye = yazıp gerekli farklı sayfadaki "ı4" hücresine tıklar entere basarsanız o isteğinizde olur.

 

[atillaciftci]

Sadece B16 olarak düşünürsek bu çözüm okey ama ben B16 dan seçecem B17 Açılacak B17 den seçecem B18 açılacak B18 den seçecem B19 açılacak bu şekilde olabilirse Süper olacak....

Sayfanın kod bölümüne yazıp deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B16" Then Exit Sub
    If Range("B16") <> "" Then
        Range("B17").Insert Shift:=3
    End If
End Sub

Not: Alta sütun açan ustayla tanışmak isterim...

 

[Murat OSMA]

Deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("B16:B30")) Is Nothing Then Exit Sub
    Target(2, 0).Insert Shift:=3
End Sub

 

[atillaciftci]

Süpersiniz......

Excel deki isteklerimden birincisine Murat OSMA arkadaşım çözüm buldu çok teşekkürler kendisine....

Şimdi diğer isteğim vardı excel dosyamda aşağıya doğru taşeronları seçtim seçtiğim taşeronların excel dosyasını açacak ve onlara I4 deki yazıyı yazacak......

Herkezden destek bekliyorum tabi ama Murat OSMA arkadaşım bunada el atarsa çok ama çok memnun olacam....

Deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("B16:B30")) Is Nothing Then Exit Sub
    Target(2, 0).Insert Shift:=3
End Sub

 

[Murat OSMA]

Hadi bunu da cevaplayayım bari.
Bu kıyağımı unutmayın, köyde anlatırsınız...
Kızmayın sakın espri yapıyorum...

Buyrun deneyiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
        For i = 50 To 16 Step -1
            If Cells(i, 2) Like "Taş*" Then
                Range("I4").Copy
                Workbooks.Open (ThisWorkbook.Path & "\" & Cells(i, 2))
                Range("D7").PasteSpecial xlPasteValues
                ActiveWorkbook.Close True
            End If
        Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    i = Empty
End Sub

 

[atillaciftci]

Akşam mesayim bitmişti eve de iş götürmediğimden mesajınıza sabah baktım

Köyde anlattım ama az insan vardı namınız az yayıldı bunu da cevaplayın da bulunduğum şehirde anlatayım namınız büyüsün

Zannedersem siz Taş ile başlayan isimlere yaptınız ama benim taşeron isimlerim taş ile başlamıyor ve değişken birde bu klasörde değil başka klasörde adresi de \\Bsserver\Repair\ISLETME\Taşeron\Taşeron Performans\Taşerona Göre\2012\Atilla Deneme\ bu klasördeki dosyalarıma yazacak.
isterseniz hangi adresteki hangi dosyaya yazacağını istek.xls dosyasında Taşeronlar sayfasına B hücresine \\Bsserver\Repair\ISLETME\Taşeron\Taşeron Performans\Taşerona Göre\2012\Atilla Deneme\Taşeron1.xls yazalım buraya ne yazarsak düğmeye basınca o dosyaya yazsın tabi biz o taşeronu seçmişsek...

Murat OSMA Kardeşimde olmasa bana yardım edecek kimse yok gibi hissettim birden...

Hadi bunu da cevaplayayım bari.
Bu kıyağımı unutmayın, köyde anlatırsınız...
Kızmayın sakın espri yapıyorum...

Buyrun deneyiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
        For i = 50 To 16 Step -1
            If Cells(i, 2) Like "Taş*" Then
                Range("I4").Copy
                Workbooks.Open (ThisWorkbook.Path & "\" & Cells(i, 2))
                Range("D7").PasteSpecial xlPasteValues
                ActiveWorkbook.Close True
            End If
        Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    i = Empty
End Sub

 

[Murat OSMA]

Günaydın Atilla Bey,

Verdiğiniz dosyaya göre kodlar yazarız bilirsiniz. Yardım isterken bunları da belirtirseniz iki iş yapmamış oluruz... :dusun:


Toplam Sayfasındaki kodları şu şekilde değiştirin;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("B16:B30")) Is Nothing Then Exit Sub
    Sheet22.Range("a65536").End(3)(2, 1) = Target.Value
    Target(2, 0).Insert Shift:=3
End Sub

Module'deki kodları da bu şekilde değiştirip deneyiniz;

Sub Emre()
    Dim i As Integer
    Application.ScreenUpdating = False
        For i = Sheet22.Range("A65536").End(3).Row To 2 Step -1
            Sheet1.Range("I4").Copy
            Workbooks.Open ("\\Bsserver\Repair\ISLETME\Taşeron\Taşeron Performans\Taşerona Göre\2012\Atilla Deneme\" & Sheet22.Cells(i, 1))
            Range("D7").PasteSpecial xlPasteValues
            ActiveWorkbook.Close True
        Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    i = Empty
End Sub

Not: Üstteki mesajdan alıntı yapmanıza gerek yok. Boşuna yer kaplamasın...

 

[atillaciftci]

Murat OSMA arkadaşıma çok teşekkürler benim kahrımı çektiği için ve destek verdiği için aşağıdaki isteklerimi de ona söyleyemiyorum çünkü çok yordum onu ustalardan destek bekliyorum... Şimdiden teşekkürler...

Toplam sayfasında B sütununda Taşeron seçince alta boş satır açıyor ve AKTAR sayfasına seçtiğim taşeronun adını atıyor buraya kadar herşey normal.

1- Seçtiğim taşeronun üstüne basıp taşeronu değiştirirsem alta bir satır daha boş açıyor 2 tane boş satır oluyor.
2- Seçtiğim taşeronun üstüne basıp taşeronu değiştirirsem AKTAR sayfasında eski seçtiğim taşeron ve yeni seçtiğim taşeron oluyor ama aslında ben önceki taşeronu silip başka taşeron seçtim yani bir taşeron olması gerekiyor.
3- Aktarma düğmesine bastığımda işlemleri yapıyor problem yok ama en sonunda AKTAR sayfasında A sütununu temizlesin istiyorum...

 

[Murat OSMA]

Merhaba Atilla Bey,

Bu istekler, maille istediğinizin dışında.. değil mi ? :dusun:

 

[atillaciftci]

istediklerimi Murat OSMA arkadaşım kökünden çözdü kendisine sonsuz teşekkürler...

 

[Murat OSMA]

Rica ederim Atilla Bey, eksik olmayın...

Hoşça kalın !!!