Vba kod yardımı

[Mehmet Sait]

Merhaba,

Aşağıda ki koda bir kiriter daha eklemek için ne yapmam gerek.

BA sütununda G3 te yazılı tarihi bulup karşısına yazıyor.

Eklemek istediğim G4 vardiya ismi AZ Sütununda yazılı ise aktarımı yapsın.

Dim Bul As Range
Set Bul = Range("BA:BA").Find(Range("$G$3"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "BB"), Cells(Bul.Row, "BB")).Value = Range("M18").Value ' Koli

Set Bul = Range("BA:BA").Find(Range("$G$3"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "BC"), Cells(Bul.Row, "BC")).Value = Range("D70").Value ' Arıza 1

Yardımlarınız için teşekkür ederim.

 

[ÖmerFaruk]

Kodlarınızdaki bazı yazımları kısalttım.
Sorunuzdan anladığım umarım doğrudur.
G3 deki değerin bulunduğu BA sütununun olduğu satırdsa AZ sütunundaki değer G4 ile aynıysa işlemi yapacaktır.

Sub Makro()
    Dim Bul As Range
    Set Bul = Range("BA:BA").Find(Range("$G$3"), , , xlWhole)
    If Not Bul Is Nothing Then
        If Range("G4") = Range("AZ" & Bul.Row) Then
        Range("BB" & Bul.Row) = Range("M18").Value ' Koli
        Range("BC" & Bul.Row) = Range("D70").Value ' Arıza 1
        End If
    End If
End Sub

 

[Mehmet Sait]

Kodlarınızdaki bazı yazımları kısalttım.
Sorunuzdan anladığım umarım doğrudur.
G3 deki değerin bulunduğu BA sütununun olduğu satırdsa AZ sütunundaki değer G4 ile aynıysa işlemi yapacaktır.

Sub Makro()
    Dim Bul As Range
    Set Bul = Range("BA:BA").Find(Range("$G$3"), , , xlWhole)
    If Not Bul Is Nothing Then
        If Range("G4") = Range("AZ" & Bul.Row) Then
        Range("BB" & Bul.Row) = Range("M18").Value ' Koli
        Range("BC" & Bul.Row) = Range("D70").Value ' Arıza 1
        End If
    End If
End Sub

Tam istediğim gibi oldu. Teşekkür ederim.

 

[Mehmet Sait]

Kodlarınızdaki bazı yazımları kısalttım.
Sorunuzdan anladığım umarım doğrudur.
G3 deki değerin bulunduğu BA sütununun olduğu satırdsa AZ sütunundaki değer G4 ile aynıysa işlemi yapacaktır.

Sub Makro()
    Dim Bul As Range
    Set Bul = Range("BA:BA").Find(Range("$G$3"), , , xlWhole)
    If Not Bul Is Nothing Then
        If Range("G4") = Range("AZ" & Bul.Row) Then
        Range("BB" & Bul.Row) = Range("M18").Value ' Koli
        Range("BC" & Bul.Row) = Range("D70").Value ' Arıza 1
        End If
    End If
End Sub

Merhaba hocam,

Rapor dökümünü "Duruşlar" adlı sayfaya almak istiyorum. Aşağıda ki satırları nasıl düzenlemem gerekir.

Range("BA:BA")

= Range("AZ" & Bul.Row) Then

Range("BB" & Bul.Row) =

Range("BC" & Bul.Row) =

Yardımlarınız için teşekkür ederim.

 

[ÖmerFaruk]

Örnek olarak

'Kodun çalıştığı sayfada C1 deki değeri --> A1 hücresine yazar
Range("A1")=Range("C1")

'Sayfa1 sayfasında C1 deki değeri --> kodun çalıştığı sayfadaki A1 hücresine yazar
Range("A1")=Worksheets("Sayfa1").Range("C1")

'Kodun çalıştığı sayfada C1 deki değeri --> Duruşlar sayfasındaki A1 hücresine yazar
Worksheets("Duruşlar").Range("A1")=Range("C1")

'Kod hangi sayfada çalışırsa çalışsın,  Sayfa1 sayfasında C1 deki değeri --> Duruşlar sayfasındaki A1 hücresine yazar
Worksheets("Duruşlar").Range("A1")=Worksheets("Sayfa1").Range("C1")

 

[Mehmet Sait]

Örnek olarak

'Kodun çalıştığı sayfada C1 deki değeri --> A1 hücresine yazar
Range("A1")=Range("C1")

'Sayfa1 sayfasında C1 deki değeri --> kodun çalıştığı sayfadaki A1 hücresine yazar
Range("A1")=Worksheets("Sayfa1").Range("C1")

'Kodun çalıştığı sayfada C1 deki değeri --> Duruşlar sayfasındaki A1 hücresine yazar
Worksheets("Duruşlar").Range("A1")=Range("C1")

'Kod hangi sayfada çalışırsa çalışsın,  Sayfa1 sayfasında C1 deki değeri --> Duruşlar sayfasındaki A1 hücresine yazar
Worksheets("Duruşlar").Range("A1")=Worksheets("Sayfa1").Range("C1")

Yardımlarınız için teşekkür ederim. Emeğinize sağlık.